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ABSTRACT 


The objective of this thesis is to provide a software 
tool to support the Deputy Chief of Staff for Personnel 
and Staff Function of the Indonesian Navy in making 
decisions with fast, timely, relevant, up-to-date and 
accurate information regarding Personnel Management 
activities. 

A database design is proposed including the logical 
and physical phases and an implementation of a personnel 
datahase prototype is undertaken on a microcomputer using 


dBase II. 
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I. INTRODUCTION 


The most important resource in any organization is its 


personnel. All aspects of an organization are dependent on 


personnel, so a large measure of the success of an 
organization depends on properly managing it's human 
resources. This makes personnel management a critical task. 


Decisions which affect personnel must be carefully 


planned. Personnel are human beings, unlike other resources 


such as materiel or money. Materiel may be moved about 
witheut the same considerations involved with moving 
people. Materiel does not need a life-cycle management 


system as complex as personnel management. 


The personnel administration cycle consists of 
procurement, classification, education, utilization, 
treatment, and separation (Ref. 1]. Each phase must be 


carefully planned and followed by a decision that requires 
information suppot. The information support must be 
accurate, timely and relevant. 

Human memory is limited and does not always 
process information fast enough. A computer can aid the 
human mind because it has the capability to process large 
amounts of data with high accuracy and little error. 

In light of the needs and capabilities described above, 


this thesis will discuss personnel management base on 


database management using microcomputers as decentraliced 
activities. This thesis will investigate the use of a 
microcomputer for processing personnel management data. It 
will show how a decentralized database system can provide 
information to assist a Deputy of Personnel and Staff 
Function in decision making regarding personnel management 
activities. 

This EOM which keeps track of an officer's career 
( job placement, promotion, education, training, etc), 
providee current information regarding an officer’s career 
and shows what kind of jobs or education/training should 


be scheduled for a certain officer to gain required 


knowledge and experience before being assigned a specific 


jab. 

A reorganization of the Indonesian Navy was applied at 
the end ef 1985. Because of the restructuring and 
insufficient information about the existing personnel 


system, this thesis presente only a prototype for 
implementation. 

Chapter II discusses the Indonesian Navy personnel 
function activities and crucial problem in the present 
system, which the prototype is designed to address. 

Chapter III reviews the database development process, 
which includes: the general system analysis and design, the 
database system concept and the advantages and disadvantages 


of using it, and introduction to database design (both 


logical and physical), with special emphasis on relational 
database design which focuses on the relational forms 
and the characteristics of relational databases. 

Chapter IV describes the implementation of this 
personnel database system for Indonesian Naval Officers, 
particularly the Officer Career System. 

Finally chapter V presents the conclusion that database 
processing applied to the Indonesian Naval Officer Career 
System, can increase decision making ease, timeliness, 
confidence, and reliability. 

Programs using  dBase II are provided so the user can 
easily interact with the computer to get information about 
the officer career field. These programs are shown in 


Appendix D. 
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LIM BACKGROUND 


A. INTRODUCTION 

The Indonesian Navy has many subsystems, one of which is 
the Navy Personnel System. The Navy Personnel System is 
concerned with personnel resource Wert zation, and 
management of other resources to make the Indonesian Navy 
SEeaanwrezacionally effective and efficient in supporting 


national defense and security. 


B. PERSONNEL MANAGEMENT FUNCTION 
The Indonesian Navy MU system has two main 
functions; Manpower Management and Personnel Administration. 
1. Manpower Management 
In general the main functions of Manpower Management 
are: To investigate activities and to determine perzonnel 
requirements including qualification, quality and quantity 
for supporting the Indonesian Navy’s main tasks. 
2. Personnel Administration 
Personnel activities have the following life-cycle 


functions: Procurement, Classification, - Education and 


Training, Utilization, Treatment and Separation. 


a. Procurement 
Personnel procurement is the process of 
acquiring new personnel from national human resources 


according to Indonesian Navy Organization requirements. 


DT 


Da Classification 
Personnel classification is the process of 
analyzing and classifying individuals by job/occupation, so 
that individual requirements and organizational requirements 


are in balance. 


c. Education and Training 
Personnel education and training are tne 
processes and activities which impact knowledge for 


personnel development A to assignments and promotions. 
d. Utilization 
Personnel utilization is the process and 
activity of selecting the right people for promotion and 
job/assignment. By placing the right person in the right 
place, the personnel assignment system facilitates maximum 
exposure and chances for individual promotion. Maximum 
exposure and promotion support future personnel assignments. 
e. Treatment 
Personnel treatment is a complex field, and is 
not an easy job. Activities in this category include salary, 
allowance (wife, children), morale, leave, recreation, 
rewards or awards, medical, insurance, etc. 
T Separation 
Personnel separation is the process and 
activity of keeping a satisfactory balance within the 
Organization while dealing with personnel retirement. 


Personnel retirement occurs: 
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= When manpower control and composition needs in 
the organization result in personnel separation 
(reductions in force). | 


= Because of normal retirement. 


E PERSONNEL SYSTEM REQUIREMENT 
Information to support decisions by the Deputy of 


Personnel must be relevant, timely and correct. 


The organization must maintain many tiles in the 
personnel system such as payroll, separation, reward, 
classification, education and occupation. In a file 


processing environment, these result ina high degree of 
data redundancy and are difficult to maintain and update. 
For example, after a promotion all files related to rank 
must be changed. Similarly, for personnel career planning, 
all education data, occupation data, and rank data must be 
provided on the same report. 

1t 15 not easy to retrieve information from different 
files in a short time, and it is inefficient to support 
these kinds of information needs using file systems. In 
order to „avoid duplication, and to facilitate tast 
retrieval, a relational database system may be a desirable 
alternative. 

Using a relational database system allows an 
Organization’s data to be processed as integrated files. It 
reduces artificially imposed constraints caused by separate 
applications and permits the Deputy of Personnel and his 


staff to access data more naturally. 


iS 


ο THE CRUCIAL PROBLEM IN THE PRESENT SYSTEM 

Personnel Administration cycles like training, career 
planning, promotions, job placement and separation pose many 
administrative problems. Training must have standardization 
grades, personal records for each trainee, personal biography 
etc. It is difficult to maintain and retrieve such data 
accurately and quickly. 

The Navy Officer promotion system recognizes two periods 
in a year, April and October. So much data must be collected 
for Supporting the  candidate's promotion that it ıs 
difficult to retrieve data from the source. Sometimes human 
errors occur or too much data is collected. 

When career planning is done by hand, the same problems 
recur because one must collect and gather data from a filing 
cabinet and then match it with each person and job. 

When updating data related to promotion, a new job or 
new education it is difficult to manipulate data manually. 
When calculating a pension for example, it is Glen 
provide information quickly because the birth date must be 
eubtracted from the current year by manual methods. When the 
executive or the Chief of Staff needs adhoc information 
from the Deputy of Personnel, manual systems cannot provide 
results quickly, thus he cannot make the decision with 


confidence. 
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E. CAREER MANAGEMENT CONTROL 
Three main activities OG Cui 1 career conto: 
Promotion, education/training and job placement. Each 
closely supports the others. 
1. Promotion 
As mentioned earlier, the regular officer promotion 
system recognizes two periods in a year, April and October. 


Three or four months before, the candidates are proposed 


from naval stations/bases such as West Fleet, Marine Corps 


and other Main Commands. Much data must be collected to 
support the candidate's promotions, such as conduct, 
previous jobs, rank history, education and training 
history, and other administrative information. 


Sometimes this information appears with manual typing 
error or incorrect information because of human errors, and 
much time is lost correcting it. 

After collecting this information, the career control 
staff can examine and clarify which officers are 
eligible for promotion. Education, job placement and date oft 
rank determine eligibility. The staff then matches this data 
with data from the personnel data bank. This procedure, if 
done by manual methods as is currently the case, is very 
time consuming and requires much staff and clerical support. 


SE Educational 


— oe — ee gem ee ee tamah 
~ 


The educational system and its administration is a 


bit different from the promotion system. Information about 


t3 


education comes from centralized activities, but the same 
administrative process occurs as with the promotion system. 
An example is the military education level from general 
development, for example the Second Officer Continuing 
Education corresponding to the US Army Officer Advanced 
Course. By collecting and gathering the data from filing 
cabinets, the career control staff can clarify and examine 
which officers are eligible to attend this course. Atter 
that they send a message/telegram to the Main EE eg or 
Naval Stations. Main Commands then respond concerning the 
Officer's elligibility for this course by sending a 
message back to Deputy for Personnel. Again the career 
control staff handles this information from all the Main 
Commands and Fleets. A lot of time is spent in clerical 
tasks, and even more staff is needed to handle educational 
activities. 
3. Job placement 
For regular job placement the peak load activities 
happen as the officer nears the end or finishes a course. 
After examining the officer’s previous job experiences and 
educational background, the career control staft examines 
alternatives and decides where the officer would best serve 
in a new job. Again, if it is done by manual methods, 
sometimes information is incorrect and it is time consuming 
to correct. Just as with the promotion and educational 


systems, the officer data are kept in filing cabinets. 
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III. DATABASE DEVELOPMENT PROCESS 


an oo emm wm ee ee emm ee emm eem ce emm mmm em emm emm emm emm emm emm emm 


A. SYSTEMS DEVELOPMENT 

The software engineering field is interesting and 
Challenging because it requires the combination of both 
science and art. Software is an intangible thing, so it 
is more difficult to measure, evaluate and estimate than 
other engineering products. 

1. The Roles of Systems Analyst 

The Systems Analyst is known by various names such 

as Systems Engineer, Systems Designer, or Programmer 
Analyst. Currently System Analysts are usually located in or 
near the computer functions in an organization. It is most 
common to find them in a project development department 


which reports to the director of the information system, 


although Systems Analysis and Design are sometimes 
decentralized into the functional areas that process 
information. 


A Systems Analyst tries to trace the E ont systems 
/manual systems and uses various means of information 
gathering techniques, such as interviews, questionaires, 
observation, and document examination. He must try to choose 
the techniques that best fit the situation of the user 


organization. He also must evaluate this information 
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in order to recognize the problem and provide alternative 


solutions (Figure 3.1). 


Trace the current system / manual 


Interview Observation 
Techniques 
Questionaire Document exam, etc. 
Solution 


Figure 3.1 Tasks of Systems Analyst. 


2. Software Life Cycle 

The software engineering process is very complex. 
If software engineering is not provided with comprehensive 
and integrated tools, techniques and disciplines that 
Support all activities of the development life cycle, 
productivity and quality can not be expected to realize 
substantial gains. The software -life cycle may be 
fundamentally partitioned into the development phase and the 
operations and maintenance phase. There are many 
interpretations of the various development phases of 
software, but the important thing to remember is that the 
larger the project, the more detailed the Be design 


phase must be. One methodology for software life cycle is 


the Waterfall model. (Ref. 21, is illustrated in 
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figure 3.2. The original version was presented in Royce, 


1970 and was foreshadowed in various U.S Air Force 
industry publications such as Air Force, 1966 


Rosove, 1967. 
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Software plans and 
requirements 
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Product design 
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Product 
verification 


implementation 
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maintenance 
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(Reprinted from (Ref. 21) 


Figure 3.2 Waterfall model. 
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and 


and 


As seen above, each phase Culminates in a 
verification and validation activity. By verification and 
validation one can eliminate as many problems as possible in 
the results of that phase. So each product phase is the 
basis for the next product phase. 

a. System Feasibility 

System feasibility must consistently, 
comprehensively and accurately represent the user 
requirements. System feasibility is determining its tite 
cycle feasibility and superiority to alternate concepts. 
The model of the system at the system feasibility level 
must. support analysis and validation of the required 


Operational capability as well as understanding the user and 


the developer. 


b. Software Plan and Requirements 
This phase determines the required functions, 
interfaces, and performance for the software product. 


Another activity is supporting the analysis of all 
subsystems from the system viewpoint such as 


communications and peripheral devices. The objective of this 


phase 15. to provide requirements’ for each of the 
subsystems. This involves trade-otf studies of the overall 
system model to arrive at a complementary set of 


requirements for each subsystem that will, when integrated, 
collectively provide the behavior identified in the software 


plan and requirements. 
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c. Product Design 
In this phase we consider the primary 
deliverable for software design. The design specification is 
a document with verified specification of the overall 
hardware/software architecture, control structure and data 
structure fom the product. The design specification 
serves dual roles by providing a guide to software 
implementation (coding) and testing, and assisting the 
IH Rainer after software has been Wass The 
epecification can undergo considerable change during the 
software life cycle, therefore it is essential to review 
the .design κα αδείας at each step in the development 
phase. This phase can also provide a user manual’s draft and 
test plan if necessary. 
d. Detailed Design 
With the use of a design representation that may 
be graphical, textual or tabular a detailed procedural 
specification for the software is created. Like a blueprint, 
the detailed design specification should provide 
sufficient information for someone other than the designer 
to develop the resultant source code. 
e. Coding 
The final objective of software engineering 


is to translate representations of software into a form that 


can be understood by the computer. In this phase the 


ZA 


activity is a process that transforms a design into a 


programming language, such as Pascal, topes Fartran, Gian 
dBase Il 
t. Integration 
After each program component is tested 
individwad ly, the next step is integration testing. The 


program components are put together and the application is 
tested in its entirety. | 
g. Implementation 

In this phase the software product is fully 

operational on the hardware system. 
MENS Maintenance 

Maintenance is critica in the database 
environment because changes to a data element can affect 
several application programs. During the use of a large 


program errors will occur which must be corrected. 


There are many activities during maintenance such 


as: 
ie Correction because of one or more coding 
errors. 
2. Correction because of changing environment 
(new generation of hardware system, new 


operating system, new software version etc). 


En Correction to improve the software even though 
it may not have any errors. 


Be DATABASE SYSTEM CONCEPT 
Demands on data processing professionals to improve the 


effectiveness and efficiency of their organizations have 


Ze 


caused them to turn to database technology. Unfortunately 
many organizations are Switching to a database approach with 
little or no understanding of the concept. 

Database systems in general stress controlled data 
redundancy, faster processing time, higher reliability, 
reduced storage requirements, program independence from 
changes in the storage structure, control of data 
administration, and a better definition of data. A database 
system is powerful, but to achieve these goals is not a 
Simple matter. 

1. Data as a Resource 

S Data has no value if it cannot be processed or 
retrieved in a timely and accurate manner. With the growth 
Of computer capability in terms of more speed and memory, we 
can now process information rapidly and consistently. 

Using file system applications, data is usually 
associated with a single functional application program, 
for example personnel data is associated with a personnel 
department program, logistics data is with a logistic 
department program, and payroll with a accounting department 
program. Some items might be stored in more than one 


functional area. For example, name and rank might be stored 


in the personnel department, accounting department and 
logistic department. Once the data itself is moditied or 
changed, all the functional areas must change that data. 
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This is not efficient. AS a result we get redundant and 
inconsistent data that increases the possibility of errors. 
SA using a database, the data must be commonly 
defined and consistently organized. Data must be organized 
so that they can be used by the entire system. Any update 
in one area must update all of the database records relating 
to this data regardless of where they are stored. This 
approach reduces and controls duplicate data storage and 


also makes integrated processing possible. 


2. Database Management System 
Database has been defined in many ways in the 


literature. Kraenke’e definition [Ref. 3] is that a 
m is a collection of files and relationships among 
records in those files. Actually a database is more than a 
collection of files; it is a collection of integrated files. 

A database management system (DBMS) is an integrated 
software package that allows users to define th e structure 
of the database, access the database and administer the 
database. One or more languages is provided to accomplish 
these tasks. 

The data manipulation language (DML) is a language 
used to access the data in he database; a DML is used 


to perform insertions, deletions, changes, and retrievals. 


Also DML can be defined as an extension to a host 
programming language, such as COBOL, FORTRAN and query 
language (QL). The data definition language (DDL) is used 
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to define the logical structure of the database and can be 
used to specify data items and their interrelationships. 

The primary advantage of using a DBMS is that it 
provides data independence which means the database user 
does not need to be familiar with implementation ET 
Changes can be made to the data or to the schema with 
little impact on application programs using that data. 

A second advantage is that it provides an integrated 
package fM tools tor handling data with greater 
standardization and control. 


However, a general purpose DBMS might not be as 


etí icient for a specific applicatión as specialized 
sottware. 
3. Database Administration 
A database design project must have its own 


centralized administration. The systems development manager, 
therefore, must ensure that controls for the systems 
development project are not neglected. 

Because of the shared nature of the data resource in 
the database approach, a centralized function is required to 
manage and protect it. Access to this data must be 
controlled. No function can be allowed to modify the data 
without the permission of the individual who is responsible 
for that. The Database Administrator is responsible to 


maintain access and security for all of the data. 
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Database Administration 1S a very complex JOE 
because the information which the user needs is varied and 
wide-ranging. Thus the Database Administrator must deal with 


providing the requested information. Issues to be considered 


include: 

a. Whether different functional areas need to 
share the database. 

b. Whether all levels of management (upper, 
middle, lower) need the information and how 
to structure the database to solve this 
problem. 

E, The database structure which must be 
implemented ES provide information in an 
accurate, relevant, and timely manner. The 
more information we need, the more data 
structure must be designed. 

4. Advantages and disadvantages of using a database 


File systems and database system each have their own 
advantages and disadvantages (Ref. 3: pp. 3-71]. 
a. Advantage of Using a Database: 


ars Enables more information to be produced from 
a given amount of data. 


2i Elimination of duplication saves file space, 
and to some extent, can reduce processing 
requirements. The most serious problem ot 
data duplication is that it can lead to a 
lack of data integrity. A common result of a 


lack of data integrity is contlilcting 
reports. Perhaps nothing is more 
aggravating to management or more 


embarrassing to the data processing staff 
than to be confronted with computer reports 
that disagree. 


3: Creation of program / data independence. 
Data independence means that when the 
data structure changes, application programs 
keep running without being changed. 

4. Better data management. 


When data are centralized in a database, 
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one department Can specialize in the 
Maintenance of data. That department can 
specify data standards and ensure that all 
data adhere to the standards. When someone 
has a data requirement, he or she can 
contact one department instead ot many file 
maintenance groups. 


a Allows query language with easier 
programming and makes it easier to retrieve 
sophisticated information in DBMS 
environment. 

D. Disavantages of using a database 

Dx Using a database can be expensive. 

The DBMS may C go much main 
memory that additional memory muzt be 


purchased. Conversion from existindq systems 
can be costly, especially if new data must 
be acquired. Operating costs and overhead 
TOT some systems will be higher. Dn 
E; example, sequential processing of payroll 
Will never done as fast in the database 


environment. 

2 Database processing tends to be complex. 
Large amounts m data can be 
interrelated in the database. This means 
more sophisticated programming, and ot 
course highly qualified systems and 


programming personnel are required. 


oh Backup and recovery are more difficult. 
Because of increased complexity and because 
databases are often processed by several 
users concurrently, backup and recovery 
are mese difficult. 


4. Security more di£ft icuk. 
Integratión; and hence centralization, 
increase vulnerability te security 
problems because all data are centralized 


under one system. 


m DATABASE DESIGN 
A database contains a diversity of related data so that 


typically the equivalent several files are used to hold the 


data. Other files may be needed to hold descriptive 
information about the data and their relationships. 

The analysis of databases concentrates on l6gical 
structures. The result of this analysis is a precise 
specification of the contents and required manipulations tor 
the database. 

An integrated collection of support programs and file 
structures to support a database, its logical Μο... 
and an interface to user program is called a database 
management system. For that reason alone, the design of a 
database will be the most important component affecting how 
well.a system will work. 

The design of a database describes how the data in 
the system is divided into the different files or records. 

Database design basically has three steps: 

- Decide what data should be stored. 


- For the logical database design, identifying data 
entities, attributes, and relationships. 


- For the physical database, it means physical storage 
of data on storage devices and the resultant 
performance of the database design. 


E 
ix 


hat Data Should be Stored 

If the system is at all complex,the designer needs 
to consider what kind of data should be stored. First he 
must look at the output or proposed output. Before the 
required output can be displayed on a screen or printed on a 
report, the data must be in the database somewhere. For 


example, if the system must print personnel addresses, LE 
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will need the name, street, city, zip code and so on. Or, if 
the system needs to know how old personnel were when they 
retired, the designer must store data from which age may be 
Calculated (for example, birth date and the retirement 
year). 

Most of the data entered will appear immediately 
on the output reports, but not always. The user may decide 
that a piece of data is not being used now, but might be 
needed in the future. The solution in such a case should be 
to enter it now. This may cause a little more data entry, 
but it is easier to have data entered as it is captured, 
rather than later when it may not be available. 

2. Logical Database Design 

A database contains many types of data items. These 
data items have to be associated into a database structure. 
A systems analyst tends to group together in records 
collections of data items which data processing views as 
being useful. The logical database structure is the 
foundation on which most future data processing will be 
DUIJt. Future organizations will be managed with database 
resources, networks to access the databases, and  end-user 
software for employing and updating the data. 

The logical design begins with an investigation 
Of user requirements and ends with a logical description of 


a database that can support those requirements. Logical 
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description such as data models present logical views of 
real entities and their relationships. An entity may be 
a tangible object such as a person. It may be intangible 
such as a job title. Entities have properties, called 
attributes, which associate a particular value from a 
domain of attribute values with each entity: Examples 
of attributes το εασιασο ος απο Usually the domain for an 
attribute will be a set of integers, real numbers, or 
strings. An entity usually has a data item that uniquely 
identifies it. 

For example, employee number is the unique 
identifier of the employee entity. Figure 3.3 is a sample of 
entities and attributes. Shown below the serial number is a 
unique key. Entity sets can be represented by a labeled 
box, see figure 3.4. Data models describes ques sets, 
entities, attributes and their relationships. Relationships 
among them are addressed by the relational model. Examples 
are relationships between college, departments, professors, 


and courses. 


Attributes 
Serial # Name Address 
001234 David Ocean Ave 
Entities 002134 Mike Seventh St 
006789 Fred Third Ave 


^ 


| 
Entity # 


Figure 3.3 Entity set example. 
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Department 


Figure 3.4 Entity set diagram. 


College, department, professor. and courses are 
identified as entity sets. paigqur ek 3.5 shows the 
relationships between these entity sets. The relationship 
between college and its departments is called one-to-many, 
in παῖ any one college may have many departments 
(Administrative, Computer, ORSA). The same relationship 
exists between departments and their courses. 

Many-to-many is the relation between Professors 
and Courses: One professor can teach many courses, and one 


course can be taught By many professors. 





College < >> | Professor 


Department i «-—-—————»z Course 


Hi 
Hi 


Figure 3.5 Relationship diagram. 
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The result of the physical database design is 
specification of the storage allocation parameters. Setting 
up the database on a real computer is called physical 
database design. In other words, the physical database 
is the component of the database that confirms the 
computerized version of the logical database. 

The physical database consists of five components 
(Ref. 4: pp. 30 tele storage structure, access strategy, 
data loading, data update, and data maintenance. 

Knowledge of the storage structure is important 


because it indicates the power of the DBMS for certain 


applications. The storage structure is the physical 
architecture construction. Its consists of dictronaw ο 
indexes, relationships, data. The dictionary is the 


repository of the information represented by the compiled 
data definition language. Each DBMS’s dictionary is unique. 

For faster access, index mechanisms are needed. 
There are two kinds of indexes, primary and secondary. The 
primary indexes are unique value guaranteed and the 
secondary indexes are repeated values allowed. 

The connections between record occurrences are 
called relationships. There are two kinds of relationships, 
static and dynamic. 

The data part of he storage structure contains the 


occurrences of the records. Static DBMS have multiple record 
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type data storage structures. Dynamic DBMS have a separate 
data storage structure for each record type. 

An access strategy is a collection of routines that 
insert data into and retrieve data from the database. 
Understanding access strategy is basic to knowing why 
certain operations take longer than others. 

Data loading is the process of inserting large 
quantities of data into the database at one time. Some DBMS 
allow or require data to be loaded in certain ways to 
achieve efficiencies during subsequent updating and 
reporting. 

The updating process attempts to ensures current 
data. Critical in the updating application is how well the 
DBMS handles additions of new records, modification ot 
element values, modifications of relationship occurrences 
and deletions of existing records. 

The most important requirement τ database 
maintenance is the creation of a backup copy of a database. 
While creating a backup is certainly the first step in 
backup-and-recovery, the nature of the backup process needs 
to be understood so that sufficient resources can be 


allocated to its accomplishment. 


ES RELATIONAL DATABASE DESIGN 
In a filing system, each functional area has it own 
files and procedures. Because of this there is a complex 


flow of paperwork between the functional areas. In this 
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case data for different areas are separately maintained 


in separate tiles. It is hard to manage this data. Accuracy 
is lost, and maintenance and change are difficult to 
accomplish. 

But when data are designed into an integrated 


database system, the data structures become more complex 
but the data flows are aes sen The data are consistent 
and accurate. 

Changes uN procedures can be made rapidly: 
Fundamentally different analysis and design techniques 
are needed. 

1. Relational normal forms 

When modification OI data has unexpected 
consequences, it is refered to as a modification anomaly. 
A deletion anomaly exists if the deletion of one entity 
deletes facts about a second entity. An insertion anomaly 
exists if an insertion of a fact about one entity cannot 
be made until a fact about a second entity is known. 
Anomalies can be removed Or eliminated through 
normalization, but this normalization process can create an 
interrelation constraint. 

2. Normal Forms 

All relations are by definition in first normal 


form. When there are no repeating groups the relation is in 


first normal form. See figure 3.6 
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ο τσι τς ne Secondspermaletamnei: all nonkey 


attributes are dependent upon all of the key attributes. 
No attribute is dependent upon only part of the key. The 


second normal form is illustrated in Figure 3.7. 


UNNORMALIZED RECORD: 
Order 











apene | O22ER- 
ο | NAME ¡ ADDRESS 


L DATE 















' ! 
QUANTITY. ! PRODUCT- I PRCOCCT- ! O2CER- 
ORCEREO | PRICE | TOTAL ¡ TOTAL 


PROOUCT-| PRODUCT- 
NUMBER | NAME 













t 














FIRST NORMAL FORM: Remove the repeating group. 


Order 








CUSTOME R= 






| CUSTOMER- ICUSTOMER- | OP OE R= 


ORDER. 
ROER 
ο. | NAME | ADORESS | TOTAL 


DATE 








Order -Product 









A~n N 


(Reprinted from LRef. 3: pr 1801) 











ODANTITY: Pee TUE 
ORDERED 





Figure 3.6 From unnormalized to first normal form. 

When relations are in second normal form, they may 
have transitive dependencies. These dependencies are removed 
by placing the relation in third normal form. 

A relation is in third normal form if it is in 
second normal form and has no transitive dependencies. 
All attributes must depend upon all of the key, and 
dependencies are not transferred from one attribute to 


another. Third normal form is illustrated in figure 3.8. 
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primary ney asin he ORCE SF PROOUCT record aoove 


i SE hy SS 
lever SS 
OAQER. E , JEE ο ο eS 


Oraer-Proauct 


ORDERS | PROOUCTS 


Product 


PROOUCT# 













AUANTITY- | PRODUCT. 
OROEREO | TOTAL 














poonuct- | PrODUET- 
NAME | PRICE 





(Reprinted from (Ref. 5: p. 1811) 


Figure 3.7 Second Normal Form. 


THIRO NORMAL FORM: Remove artriDutes cepengent on cata item(s) otmer tnan tre orimary key, 
asin me OROER recora adove. 


COSTOVER | οσους 
NUMBER TOTAL 









iGustamer 
CUSTOMER 
NUMGER 

Orcer-Product 
ORCER PRCOUCT | CUANTITY PRCOUCT 
NUMBER | NUMBER CROERED TOTAL 


Product 










susTovern | CUSTOVER 
"AME | ACOFESS 


















PRODUCT ERCO LCT | PRODUCT 
NUMBER NAME FRICE 





(Reprinted from (Ref. 9: p. 1814) 


Figure 3.8 Third Normal Form. 
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3. Relational Database Design Criteria 

The first design criterion is elimination of 
modification anomalies. If relations cannot be put into 
normal form, then modification anomalies do not happen. 
Relations that are in normal form are prefered, and 
normal for that is become is a design objective. 

Relation independence is the second design 
criterion. Two relations are independent if a modification 
can be made to one relation Greece affecting the other 
relation. Relation dependence is sometimes caused hy 


normalization to remove modification anomalies. This ffect 


T 


causes a conflict in design criteria. 
The third criterion is ease of use. The desian 


should structure relations so that they are familiar and 


natural to the users. 


D 


IV. DATABASE INE EERENTATLON 


A. INTRODUCE TLE 

The main purpose of this chapter is to design a database 
system which may be ueed by the Indonesian Navy Deputy of 
Personnel to make more effective decisions. 


Personnel management was previously defined as those 


managerial activities that deal with procurement, 
development, maintenance, utilization and separation. This 
is also known as the personnel management cycle. For 
supporting these ο... data must be accurate and 


timely. All of the personnel activities are controlled 
by the Deputy Of Personnel. These include education, 
training, promotion, and JoD evaluation. 

The computer can help support the Deputy of Personnel 
with various decision making processes because of its 
speed and accuracy in processing large amounts of data. 

Án Organization can more easily decentralize  itz 
operations when it uses interactive processing. This adds 
a new dimension to the Personnel Management Information 
System by allowing easy editing and filing of existing and 
new data. 

After careful analysis, it was decided that the 
functional requirement described in Chapter II suggested the 


application of a relational database. This justification was 
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based not only upon various possible record relationships, 
But also the frequency and volume of the expected 
Aran =actions. Promotions occur regularly twice a year. 
Officers are selected for promotion based on requirements 
because of job vacancies particularly for the colonel and 
flag officer. For this purpose the system should be designed 
with a query capability. 

For example the amount of officer records is around 
8000, with five to seven percent eligible for promotion, 
and because of limited vacancies only two or three percent 
actually are promoted accepted. 

The same thing occurs in educational and job placement. 
Comparing the officers’ chances for various schools, the 
MESAS ianiticant hurdle is? from Second Officer Educational 


level to Command and Staff College Level. This happens once 


a fiscal year and is usually followed by job placement. 
This kind of job placement is predictable, so it can he 


prepared as the officer nears the end or finishes a course. 


But managers still need some queries to handle this 
problem, because there are many irregular job placements: 
because of job requirements from outside the Navy 
organization, for example D O D. The system should be able 


to provide relevant information immediately to support fast 
decision making by the Director of "Personnel or Staff to 


fill those job vacancies. 


The above is based on career applications only. Besides 
Chas, there are other applications such as rewards and 
pension. Again, the system should eventually be able to 


handle all personnel officer activities. 


B RELATIONAL DATABASE DESIGN AND APPLICATION 

There are many ways in which a database can be designed. 
This design will describe a design theory and application 
for the Indonesian Naval Ofticer Personnel System, 
particularly the career system, where education, rank 
and job evaluation are involved. 

The most important phase in the design of a database 
is in the relational database design, where the recom 
M E το and record m us will be developed. 

1. Record Relationship 

Relationships can be specified in a variety oft 
ways. One technique is called a Bachman diagram Gr 


structure diagram. See figure 4.1. 


Intersection Intersection 


| JOBOFF | R 
oe νων a i. 


7 
Intersection - πως 
L 










BODYCHAR 


MILEDU | C UVEDU | 
27 


Ce 
MEDULIST SEDBULTEST 


Figure 4.1 Bachman diagram 


The above diagram shows the relationships among 


records. The single and double arrow notation is used to 
express os among Records. There are TOUT 
different relationships, one-to-one, öne- to many, 
many-to-one, and many-to-many relationships. 


Examples as follows: 


a. One-to-one. 
An officer can only have one set of body 
characteristics and vice versa. 
AS SA >  BODYCHAR. 

D: ρε οσο παω”. 
One otficer may have attended several military 
schools. 
OFFICER  «----- EDO 

e c. Many-to-one. 


Many eee terents =JobDS ame job recardas history will 
have been performed by one officer. 
JOBOFF <<----- > OPP Ger. 


Ci. Many-to-many. 
An officer can be, eligible for many jobs or vice 


versa. 
OFFICER” πο JOBETST. 
2. Record Structure 
Record structure shows the relationships amononc 
attributes, where the key attribute is underlined and 
uniquely identifies each Record. Par many-to-many 
relationships between records, another record is needed, 


called an intersection record. This record is device for 
integrating two or more files and the keys of the files 
being integrated must appear in the intersection record. 


Examples of record structure as follows: 
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1. Personal identification 
OFFICER (SERNO, NAME, CORPS, RANKID, EDUID, SEX, 


BIRTHDD, BIRTHMM, ΕΤΕΙ.  ,'',',, ΟΤΙ 


m Body characteristic 
BODYCHAR® (SERNO, WEIGHT, HEIGHT, SK@OLOR, ΠΕΤΤΡΕ, 


EYCOLOR, BLOOD, SHOE, RAT, αντ ο 


e Rank (intersection?) 
RANK (SERNO, RANKID, RANKDD, RANKMM, RANKYY, 


emm — emm emm «κας —_— emm emm emm 8 —— emm 


RORNO, RDATORNO) 


4, Military education (intersection) 
MILEDU (SERNO, MEDUIRANK, MEDLEVID, MEDUID, 


MDDEDST, -MMMEDST,;, MITEDST, "MDDEDED,; μμ ;,Ζ 
MYYEDED,” MEDUDUR, MEDURSE TI 


25 General education (intersection?) 
CIVEDU (SERNO, CEDURANK, CEDLEVID, CEDUID 


CDDEDST, CHMMEDST, CYWEDSTENEICDDEBEBD, CHUEDEDI 
CYYEDED, CEDUDUR, CEDUR=SETO 


6: Occupation (intersection) 
JOBOFF (SERNO, JOBID, JUOBRANS. J@GBDD,. JUBMN, 


-- --- -- — κ κο « ---ᾱ 


JOBYY, JOBECH, JORNO, TDATORNO ) 


T Occupation list 
JOBLIST (JOBID, JOBDES, ECHELON, JOBSTAT) 

8. Rank requirement for occupation (intersection). 
JOBRNK (JOBID, JOBRK) 

9 Corps requirement for occupation (intersection). 
JOBCORP (JOBID, JOBCO) 

10. Military education requirement for occupation 
(intersection). JOBEDU (JOBBD,ONWBBEDO 

11. Military education list 
MEDULIST ( MEDUID, MEDUDES) 

12. General education list 
CEDULIST ( CEDUID, CEDUDES» 

13. Rank List 
RANKLIST (RANKID, RANKDES, RKECHREQ) 


E INTERRELATIONAL CONSTRAINTS 
As Kroenke says (Ref. 3: opp. 286, 305, not all 


relational database designs are equal, some are better 


than others. The important point is, a design that meets 
the user’s needs is better than one that does not. 

When a relation is aa? this oíten may 
eliminate modification anomalies at the expense of creating 


interrelational constraints. The elimination ex anomalies 


may, however have a disadvantage as well. Everytime a 
record is split into two Or more relations an 


interrelational constraint is created. The initial job 
don had modification anomalies because it was not in 
2nd normal form. We eliminated these anomalies by splitting 
the relation into the "JOBOFF" and "JOBLIST" relations. 

The interrelation constraints occur, because two 
relations share the attribute "JOBID". However a "JOBID" may 
τε st in ?JOBOFF?” if it is not in "JOBLIST"'. 

| We can say that the values of "JOBID" in "JOBOFF" must 
be a subset of the values on "JOBID" in  "JOBLIST". See 


figure 4.2. 


JOBOFF | JOB 
ID 


Figure 4.2 Example of JOB relational. 


D. THE DESIGN APPROACH 
The design of this system was approached by considering 


the output required and anticipating the questions and 
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queries that management might ask. Output would be provided 
in both screen and printed form. 

The following are examples of some queries and output 
form: 

1. Query rank. 


a. Gives the information about all of officers 
in a certain rank, screen or printer. 


b. List an officer's promotion history by entering 
his serial number, screen or printer. 


2 Query education. 


a. Gives the information about all officers who 
have a military education level (e.g. Command 
and Staff College level), screen or printer. 

b. Gives the information about allo fficer who 


have a specified military education (e.g. Navy 
Command and Staff College), screen or printer. 


are Query job. 


a. List all officers eligible for a certain 
job, screen or printer. 


b. List all jobs which an officer may be eligible 
for, screen or printer. 


4. Print personnel. 


a. Gives all information about all of the officers 
list by by name (screen or printer). 


b. Gives all information about all of the officers 
listed by serial number (screen or printer). 


Based upon the estimated outputs, the next step was to 
define what kind of data was required to support these 
outputs and what kind of record structure should be 
included into the dBase II database. (See data dictionary 


Appendix Bi 
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Be sro rene CONSTRALNTS 


The 


system has certain hardware and software 


constraints. These constraints are 


qus 


This system must use DOS operating system version 
2 OR Or higher: 


This system uses dBase II database management 
program. 


This system runs on IBM PC or compatible only. 


3 


The widths of the output are less than 80 columns. 


In order to make additions, changes and deletions, 
the users must be familiar with the design of the 
system and know about this data structure. 


Ρα Sorel EXPANDABILITY 


By the design of its data structure, this system can be 


expanded. Some of the possible expansions are: 


t. 


The system can be expanded by creating and adding 
data files such as: 


a. Personal identification data structure ο τς 
date, birth place). 


b. Personal characteristics (weight, height, hair 
color, eye color, etc). 


Es Family data (spouse, children; address, sex, 
birth date, and birth place). 


d.: Payroll (main salary, wife allowance, children 
allowance, and deductions ). 


e. Uniform sizes and other possible personal data. 


By adding the above to the data structure, the 
output can be easily expanded to include: 


a. Output reports for payroll. 


B. Output reports for personal characteristics. 
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Gu Output reports for occupation. 
d. Qutput reports for families, etc. 


SE Updating modules for the addition of data files as 
described above. 


(5% HIERARCHY CHART OF THE SS TEN 

The diagram below (figure 4.3) is the hierarchy chart of 
the system, where each block/module has a specific function, 
such as adding or updating a record. Each module has 
submodules with similar functions but different tasks, such 


as officer record addition, job record addition, etc. 






MAIN MENU 


-- 
-- 


| ADD | DELETE | CHANGE | | PRINT | [ query | 
: | 


RANLIST | somLIsT — | MEDULIST — RETAZ 
| BODYCHAR | | OFFICER - [ crvepu - 


BODYCHAR CEDULEIS 











| QUERYA | 


QUERYB 


QUERYC 
| QUERY | 


QUERYX 









m=} 


Figure 4.3 Hierarchy chart of the system. 
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He IMPLEMENTATION 

As mentioned before, the design of this system was 
approached by considering and anticipating the questions 
and queries that management might ask. The following are 
examples of queries relating to educational and job 
information. 

1. Educational Information 

After EE "booting" the system and reaching 

the main menu by following the instructions in the user 


manual (Appendix A), the user can choose one of the main 


menu selections ( igure 4.4). 


OFFICER MAIN-MENU MAY 1986 
A ---> ADD RECORD 
Do xx DELETE RECORD 


C ---> CHANGE RECORD 


P ---> PRINT 
Q ---> QUERY INFORMATION 
R ---> RETURN TO DATABASE 
S ---> RETURN TO DOS 
SELECT AN ACTION BY LETTER ====> 2: : 


Figure 4.4 Main menu selections. 
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Selecting the <@> option from the menu result in a 


query menu selection (see Figure 4.5) and again the user 
chooses one of them. For selecting <A> will provide the 
military education level for an officer. Theme 0 EXPE 


show the list of military education level and the 


corresponding code (see Figure 4.6). 


QUERY MENU MAY 1986 


QUERY OPTIONS 


A ---> PROVIDE MIL. EDUCATION LEVEL INFORMATION 


B ---> PROVIDE ANY MIL. EDUCATION INFORMATION 


C ---> PROVIDE RANK HISTORY INFORMATION 

D ---» PROVIDE JOB HISTORY INFORMATION 

E ---> PROVIDE JOB ELIGIBLE INFORMATION 

F ---» PROVIDE OFFICER ELIGIBLE INFORMATION 


TYPE RETURN KEY, RETURN TO MENU 


Figure 4.5 Query Menu Selection. 
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QUERY MILITARY EDUCATION LEVEL MAY 1986 


MIL. EDUCATION # DESCRIPTION 
11 NATIONAL DEFENSE 
12 JOINT COMMAND £ STAFF COLLEGE 
13 COMMAND AND STAFF COLLEGE 
14 STAFF COLLEGE 
15 2nd OFF. CONTINUING EDUCATION 
16 ist OFF. CONTINUING EDUCATION 
17 NAVAL ACADEMY 
18 BASIC OFFICER SCHOOL 


19 CANDIDATE OFFICER SCHOOL 


PLEASE SELECT ONE DESIRED MIL. EDUCATION NUMBER, ACCORDING TO 


THE ABOVE LIST (2 DIGITS PLEASE) e.g. "15" AND HIT "RETURN" KEY. 


TO FINISH (RETURN TO QUERY MENU OPTION) HIT RETURN" 


ENTER MIL. EDUCATION NUMBER (2 DIGITS): 
Figure 4.6 Example of Menu for Military Education level. 


By typing «13» in response T menu in Figure 4.6 
(code for Command and Staff College level), a list of 
officers currently attending the Command and Staff College 
including serial number, name, corps and the year end’s 
attended (see Figure 4.7) will be displayed. Before the list 
appears on the srceen, the system asks if the user wants 


the display on the screen or in hardcopy form. 
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EQUIVALENT WITH THE LEVEL OF 
2nd OFF. CONTINUING EDUCATION 


NAME RANK SCHOOL YEAR-END 


BUDIYONO LIEUTENANT COLONEL 2nd OFF. CONTINUING EDU. 1983 


MARTIN LIEUTENANT COLONEL A.G ADVANCE 1983 
SUWITO LIEUTENANT COLONEL INFANTRY ADVANCE 1983 
SUCIS MAJOR INFANTRY ADVANCE 193683 


Figure 4.7 Example of Officers Attending Military Edu. Level 
2. Job Information 

The procedure to retrieve educational information is 
Similar. The job information System tries to match the 
desires of an officer concerning Wee geo oe Κεντ... 
and ‘conversely a certain job for which many officers 
are eligible. In this prototype system a simple example is 
given to show a personnel officer trying to match an officer 
with a job description. 

Each job needs eligible officers to fill it. In a 
simple case the basic prerequisites for job placement 
are rank, education and corps. Secondary considerations 
include other adjustment and past performance. 

Given a job description and prerequisites, this 
prototype can help the user to match a certain job with the 
officers eligible by reason of rank, education, and corps 
consideration. Exact job descriptions and eligibility 
requirements are beyond the scope of this thesis. We are 
Only suggesting how this system might expedite the job 


placement matching process. 
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After initial Se noe Sa simple” matter for 
the system to output an officer’s promotion history and job 
history to make complete information available. An example 
follows: 

Start with the main menu and respond with the 
appropriate query selection; then choose or type <E> for 
jobs eligible for an officer (see Figure 4.8). By giving the 
input officer’s serial number, the screen will appear with 
two selections: job available for the same rank, or after 
promotion (see Figure 4.9). After typing <s> the system 
responds by asking if the user needs the list on the 
screen or hardcopy. By typing <h> the computer gives all 
information on job placement after as correlated by 


rank, education, and corps (see Figure 4.10). 


QUERY MENU MAY 1986 


-—— ss se se se se se ap E a E SB . SB ο SB E E E e SB SB Y E Y E SB Y Y E a a a a a a a |B a a a a SB a a emm a |] emm emm emm emm emm 
™= =p eB == eB y eg emm eg SB SWB emm oH sw] emm oH emm emm emm emm emm emm emm emm emm emm emm emm emm SB SB sw] eH emm emm em emm emm |B SB |B SSB aa SSP SB | y E y em off off --ω - 


QUERY OPTIONS 


A ---> PROVIDE MIL. EDUCATION LEVEL INFORMATION 
B ---> PROYIDE ANY MIL. EDUCATION INFORMATION 
WE ==> PROVIDE RANK HISTORY INFORMATION 

D ---> PROYIDE JOB HISTORY INFORMATION 

ENS SSP RENTDE JOBSECTOTBCE INFORMATION 

Poe---> PROVIDE OFFICER ELIGIBLE INFORMATION 


TYPE RETURN KEY, RETURN TO MENU 


Figure 4.8 Menu for Job Selection. 


SI 


JOB AVAILABLE FOR THE SAME RANK or AFTER PROMOTION ? 


ENTER ’s’ FOR SAME RANK or ’p’ PROMOTION 


Figure 4.9 The option for same rank or after promotion. 


JOB ELIGIBLE FOR : 


003333 SUWITO LIEUTENANT COLONEL MARINES 
JOB- ID DESCRIPTION STATION CITY 
003 ASS. LOGISTIC MARINE H.Q JAKARTA 
008 ASS. PERSONNEL DOD JAKARTA 
012 INSTRUCTOR NAVAL ACADEMY SURABAYA 


wem ` emm ap - ο amb amb  . aab UA amb emm MB aab em om emm ob em Ἢ eg omg mm emm Mamm m gum emm A emm emm emm A emm emm AA A emm emm a A a A emm 
emm ` emm em emm emm emm emm emm emm emm emm emm em emm emm emm emm emm emm emm emm emm emm emm em emm emm emm emm emm emm eg emm emm emm emm emm emm eg emm emm emm emm wm emm eg eg emm emm emp emm emm emm emm emm emm emm emm emm emm emm emm 


Figure 4.10 Example of jobs placement for an officer. 


Conversely, given a jose the system will respond 
with all eligible officers with the same consideration given 
to education, rank and corps. 

3. Special Job Discussion 

The system described above is just a prototype, and 
further special work is needed. Job placement is a critical 
task because many factors must be considered, such as 
education, rank and πας 

If possible, the needs of the organization should 
be synchronized with the individual’s needs and desires, in 
order to make the officers more satisfied with their jobs/ 
tasks. 


There is a further requirement for definitions 


of job descriptions and eligibility requirements. This is 


32 


not an easy task because there are hundreds of jobs which 
must be carefully analyzed. More research is needed 
to accomplish this task before the system can be expanded. 
Because ar the very complex consideration 
involved in personnel management, this system remains just 
a tool to get more reliable, ip τω date and timely 


information to the user. 
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V. CONCLUSION ANDRESS  επρ τα. 


The Naval Officers Personnel System is very complex. 
Managing it manually demands great effort, is time 
consuming, requires a large staff to manage the personnel 
function, and is neither effective nor efficient in 
supporting decision making processes. Database processing 
can increase «decision making productivity and provide 
relevant, accurate, and timely information. 

This thesis has focused on a proposed Personnel 
Database System for Indonesian Naval Officers. However this 
system can be used for other personnel applications with a 
little modification. The developed sample database presented 
here is based on relational normal form. Normal forms 
can be applied to A. cruises inefficiency of the relational 
database model in the system design process, and also to 
decrease data redundancy. 

A sample implementation using dBase II is provided 
in Appendix A, showing user interaction with the computer 
Without necessarily knowing programming or database system 
management. 

With the latest microcomputer performance and 
capabilities in networking, this system could be put on 
staff personnel desks and connected to each Bc one 


headquarters building via a distributed network system, 
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without requiring more? Space or restructuring office 
setting. 

A complete implementation of the system needs more data 
about job descriptions and prerequisites regarding 
education, rank, corps, sex and other considerations. 
Finally the system must evolve through continued use and 


feedback from personnel management users. 
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La 


APPENDIX_A 


USER MANUAL 


PURPOSE 


The purpose of this manual is to describe how to run the 


system. 


and 


OBJECTIVES 
This system was designed to be user friendly, expandable 


maintainable. 


CONFIGURATION OF THE SYSTEM 

To run this system the following is necessary 
a. IBM PC or compatible. 

Gi IBM printer or compatible. 

d. 2 disk drives 

e. dBASE II diskette. 


f. dBASE II Project diskette. 


RECORD STRUCTURE. 


There are nine record types and fifteen table codes 


within this system. The records and table codes are: 


a. Officer identification record (OFFICER. DBF) 
B: Rank record (RANK. DBF) 

G: Military education record (MILEDU. DBF) 

d. General education record (CIVEDU. DBF) 


e. Occupation record (JOBOFF. DBF) 


36 


τ. cecupatian list (JOBLIST. DBF) 

Qe Body characteristic record (BODYCHAR.DBF) 

n Corps code table (CORPCODE. DBF) 

ne Rank list (RANKLIST.DBF) 

de Military education list (MEDULIST. DBF) 

k. General education list (CEDULIST. DBF) 

d Sex code table (SEXCODE. DBF) 

m. Religion code table (RELIGION. DBF) 

f. City code table (CITYCODE. DBF) 

E Education result table (RESULT. DBF) 

D Skin color table (COLORSK. DBF) 

q. Hair color table (TYPEHR. DBF) 

m Eye color table (COLOREYE.DBF) 

S. Blood table (BLOOD. DBF) 

t: Uniform size table (UNIFORM. DBF) 

u: Echelon. code table (ECHELON. DBF) 

VE Rank requirement for occupation (JOBRNK. DBF) 

Wie Education requirement for occupation (JOBEDU. DBF) 
dn Corps requirement for occupation (JOBCORP.DBF) 
For a ore detailed description of the data records and 


tables, see Appendixes B. 


De RUNNING THE SYSTEM 
a. Turn on the following devices, in order: 


l.: IBM PC/compatible system unit (switch on the 
right side). 


= The monitor (switch located on the front side). 


Sz 


3. The printer (Okidata, Switch located on the 
right side). 


DE Insert Operating system diskette into drive A, and 
the system into drive B. 


E: Wait for the system to boot up, answer the prompts 
by entering date and time or just hit <Enter> twice. 


d. When the screen format appears type <B:> to move 
drive B. 

e. Now type <dbase pers> 

Τε When the system asks "enter your password please", 


simply type <pers>; If you fail in this section 
because you type the wrong password (unauthorized 
access), then type <do pers>. 


Ga Now you are in the OFFICER system which displays the 
main menu. The main menu will give you the choice 
of the following options 


A ---> ADD RECORD 

D ---> DELETE RECORD 

C ---> CHANGE RECORD 

P ---> PRINT 

Q ---> QUERY INFORMATION 
R ---> RETURN TO DATABASE 
S -=--> RETURNETO DOS 


Once you are at the main menu level, just type the desired 


option (A-D, C, P, aR S): 
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ARGENDT A. 5 


DATA DICTIONARY 


This data dictionary contains data elements of the 


database of the personnel system. There are 3 columns in the 


table: 


Ll. 


Data item. This column contains the data item as it 
is known to the user. 


Acronym. This column contains the unique name for 
the data item that will be used by programmers/ 


analysts. 


Type. This column contains the data item's type. "N" 
means numeric and "C" means character (alphabetic). 


Length. This column contains the number GE 
characters used in each data item. 


Description. This column contains the description of 
the data item. | 
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1. Officer identQiÓfictation 


OFF EGER 


rg" iii ` wm eee Ss emm emm emm emm em emm emm om om emm «πὶ 
wem, ` emm = ` vm ` emm ` emm emm `  ϱ - ` emm ` em ` em em ` em ` em ` om ` emm ` emm emm ` emm em om emm mm omg emm emm emm em emp em em em em em em emm em emm em om em em em em em em ee emm emm emm emm emm mmm omg zg «απ 


DATA ITEM ACRONYM TYPE EENGTH DESCRIPTION 
Serial # SERNO C 6 serial number, primary key 
Name NAME C 23 The name of personnel 
Corps CORPS C 2 Corps code ( see CORPCODE 
table 01) 
Present rank RANKID N 2 Present rank (see RANKLIST 
table 02 ) 
Education EDUID N 2 Last military education 
( not available) 
Sex SEX N 1 Sex code (see SEXCODE 
table 05) 
Birth date BIRTHDD N 2 DD (Day) 
Birth month BIRTHMM N 2 MM (Month) 
Birth year BIRTHYY N 2 YY (Year) 
Birth place BIRTH C 20 CAME Y 
Religion RELIGION C 1 See RELIGION table 06 
2. Body characteristic BODYCHAR 


-— ` em ` om ` emm ` om ` emp ` emm ` emp om ` em ` em ` emm A A A A - - - A A A ee eee ee ` emm ama ama emm ` emm ` emm ` emm ` emm ` emm emm 
-— - em ` em ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm emm ` emm ` emm ` emm ` emm ` emm ` emm ` om ` emm ` emm ` em ` emm emm ` emm emm emm ` emm emm ` emm ` em ` emm ` omg ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` 9 ` wi ` emt ` emt ` wë ` emm ` emm 


DATA ITEM DESCRIPTION. 

Serial # SERNO E 6 serial number, primary key 

Weight WEIGHT N 3 Weight in kg 

Height HEIGHT N 3 Height in cm 

Skin color SKCOLOR N 1 Color of skin (see COLORSK 
table 09) 

Hair type ARTIE N 1 Type of hair (see TYPEHR 
table 10) 

Eye color EYCOLOR N 1 Color of eyes (see COLOREYE 
table 11) 

Blood type BLOOD N H Type of blood (see BLOOD 
table 12) 

Size of shoes SHOE N 2 In cm 

Size of hats HAT N 2 In cm 

Size of uniform UNIFORM N 1 3 sizes (see UNIFORM 


table 13) 


e es am am am em em ee em emm emp emm em em emm emm ewe am em emm am ap am emm am am emm am am m x x am amma ama ama ama ama aaa o o x «αὶ 
o ër mm em em em em e am am am am emm em emm am am emm am em am eg em am am am eg emm ama emm emm emm emm emm am emm omg ama emm emm emm emm emm emm emm emm am am am am am eee 
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eee amb ë 
- -  - em em eee 


Serial # 


Rank TD 


Rank date 


Rank month 


Rank Year 


Order Number 


Date Number 


ACRONYM 


RANKID 


RANKDD 


RANKMM 


RANKYY 


RORNO 


RDATORNO 


TEPE 


LENGTH 


—_ -o - eo eee mei ee ». -- 
—_— κ emm emm  , eee ee 


Serial number, primary key 

Rank code ( see RANKLIST 
table OZ 

Date of rank 

Month of rank 


Year of rank 


Order Number with format 
Number(4)/Month(2)/Year(2) 


DDMMYY 


A eee eee ee ο “αὶ 
emm — ` em emm em emm em á- eee eee aan 


—_— mb ` eg ` zeg υ -υ -υ o u -. - -ὃ-. c Amb - umb gem ` emm ` om - gem - - - -. - - - - ,. --, em emm wb et  - em em weg em emm A em em em ” ‘M - mmm vg -- 
em ` emm ` eg em em emm - Aum emm wb eg em em em emm em emm em emm  - . , --- gesi em omg emp o o A o o o o o o o emm wm ` wt ` mg ,. em em ob em em omg 0 ϱ”κ͵ ee ee 


TYPE 


LENGTH 


mg emm emm em ce cc ce emm emm em emm vm emm emm em emm em emm emm emm em em emm emm em emm emm emm emm em em em emm emm em κ. ----ιωω - - --- eww een rm mmer - 


Serial # 


Rank 


Education level 


Education ID 


Date start 
Month start 
Year start 


Date end 
Month end 
Year end 


Duration of 
education 


Place of 
education 


Educ. Result 


MEDURANK 


MEDLEY ID 


MEDUID 


MDDEDST 
MMMEDST 
MY TEDST 
MDDEDED 
MONE DED 
irre DED 


MEDUDUR 


MEDUPECE 


MEDURKSA 


a 2, 


” - he 


NNN 


NNN 


Serial number, primary key 


Rank in education (see 
RANKLIST table 02) 


Level of education (see 
MEDLEV table @3) 


Military education ( nct 
available) 

Date education start 
Month education start 
Year education start 


Date education end 
Month education end 
Year education end 


Duration of education 
(Weeks) 


Piace of education (City) 
(see CITYCODE table 07) 


Result of education (see 
RESULT table @8) 


= a mmm ` wt - - ama eee i ee ww em em ama ama aaa emm emm ss ama mm =.. emm  - 
=e oe eee eee eee eee eee eee emm mm ep ama ep gp en em eee ee gp ee m 
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5. General Education 


CIVEDIU 


(Intersection?) 


a am 1L. ϱ” - emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` emm ` vumm ` omg ` mm ` emm ` omg ` mm ` mm eee eee ees ee ees es eee eee ee  «- zem mmm ` wm ` mm | “αρ 
- ωωσωω ο -ω  «- « « - - . ια  - -  - e ee 


Serial # 


RANK 


Education Level 
Education ID 
Date start 


Month start 
Year start 


Date end 


Month end 


Year end 


Duration of 
education 
Place education 


Educ. Result 


LENGTH 


Serial number, primary key 


Rank in education ( see 
RANKLIST table 02 
Educational level (see 
CEDLEV table 04) 

General education 

(not available) 

Date education start 
Month education start 
Year education start 


Date education end 
Month education end 
Year education end 


Duration of education 
(Weeks) 
Place of education 
(see CITYCODE table (017) 
Result of education (see 
RESULT table 08) 


- am ea am am ` emm ` emm ` emm Xx A m ux LAN emm omg emm emm emm omg emm og - ee ee ” weg mg - emm - asa 
mmm ` am aa am M emm em emm mm emm emm emm am emm am emm og eg em off emm ër emm am omg emm em am aab em omg om a aaa emm mg eg omg -  . - 


JOBOFF 


(Intersection) 


LENGTH 


-—— =e ewe oe - mm omg ee ee eee eee ee - mmm A eee eee amma eee eee ee emm mmm eee eee emm mmm omg omg ee omg emp omg mmm emm emm wm mmm vip emm emm ee eee eee mm 


Job date 


Job month 


Job Year 


Job Echelon 


Order 


Date Number 


Number 


ACRONYM TYRE 
SERNO C 6 
CEDURANK N = 
CEDESVID C 2 
CEDUID C 2 
CDDEDST N = 
CMMEDST N Pa 
Cryer ED Sd N = 
CDDEDED N 2 
CHMEDED N 2 
CYUEDED N 2 
CEDUDUR N 3 
CEDUPECE C 3 
CE Dg Sia N 1 

ACRONYM TYPE 
SERNO C 6 
JOBID C 3 
JOBRANK N Ξ 
JOBDD C 2 
JOBMM C 2 
JOBYY C 4 
JOBECH N 2 
JORNO C 8 
JDATORNO N 6 


Serial number, primary key 


Job code ( see JENG ST 
table 195) 

Job rank ( see RANKLIST 
table 02) 


Date of job 
Month Job 
Year Job 


Job of echelon (see ECHELON 

table 14) 
Order Number with format 
Number (4)/Month(2)/Year(2) 
DDMMYY 


a am am am emm emp emm eg omg emm =P es emm emp emm emp ew emm emm em ag ama amp emm ag ag mm. Ἢ Ὁ «ων «ο «Ἢ... 8 10. 1L IL LLLI E cmm. 
mm am ama am em ama emm emm emm ama amp am omg ag ag omg ew emm emm amp omg ama omg omg . emp emm em amp ama emm am emm emm emm em emm emm eg ama Mm emm omg ama emm omg amp omg mm omg emm emp og emm mm aaa emm aaa aaa emm aaa 
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ο ους requirement for occupation JOBRNK (Intersection) 


= esse ee se sw sw y a a e am amb am amb em eee emm om gem ieee eee ees aa e 
emm ` em emp mg emm wb om "mm ee eee eee ee eee eee gem wem mmm wm ` mmm emm -- - ο eee ee 


DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 

Joð ID JOBID C 3 Job code (see JOBLIST 
table 15) 

Job rank JOBRK C 2 Rank requirement (see 


RANKLIST table @2 ) 


. ew ee $a  «--..- em ama emm am amb amb am am emp aaa ee eee emm emp omg ama Mat omg omg omg wg emm em em omg omg em «αν «αν omg em em emp «αν emp lee ee le 
mm ` emm ` emp em emp em emm em em em em emp ο. emp emm emp ep ep emm emp emm emp emp em emm emm em emm emm emm em emm em emm em emm emm emm en emm om em oe em emm em emm emm emm em «ο «ο «πῶ 


Sr mm ve 


-— ο ο emp ο ο ep emp omg ο emp eng mg em em emm emm - engm omg emm em emm omg omg wem emm emm em ω omg emm emp emm emp emt emp em emp emp -” om emm emm emm em emm om ο «πὶ 
-— ο ο em om emm sw se οι emp sm emp zem emt ο ο sm emt emm emm emm em em em om ο - emp emp emm em emp sm -ὃ-. emm em emm em emm emm emm emm emm emm emm emm emp vm A em emm em emm gp - - 


DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 

Job ID JOBID C S Job code (see JOBLIST 
table 15) 

Education req. JOBED C 2 Mil. education requirement 


( not available) 


-p ap a a a emm ae emp «αν « «αν emp em emp aa em emm emm aaa aaa emm emp amb emm omg gp eee i omg amb emm omg em em emp emm aaa eee ee eee eee ee ee ee emm emm emm emm emm - 
- - emm em emm sw swe sw em emm e emm em emm emm a emm e em emm em emm e o emm emm emm emm em em em a emp emp emm ss emm a emm aw emp em sw em emt em emm om aw sw sm em gp sm gp gp gp emm gp emm gp emm 


9. Corps requirement for occupation JOBCORP (Intersection) 


= == ee emp ` omg emp se ee ew emp omg ge omg eww omg emm aa aa aa aaa aa aa omg emp TSW ο emm am ss emm emm emm em emp sem em - ο TW engm em em |S em we Hs emm emm em gp em emm emm ss ο emm sem “ο 
-œ em ` om y em em em em omg em e emm emm emm emm emm emm sw ss emm emm om --ω  - em emm emm em gp emm emm sw emm emm emm emm emm em eg sg em sg em ew em emm em em em gp emm gp em ës emm om ---- ës --Ἡ 


DATA ITEM ACRONYM TYPE “LENGTH DESCRIPTION 

Job ID JOBID ας 3 Job code (see JOBLIST 
table 15) 

Job corp JOBCO C 2 Corp requirement (see 


CORPCODE table 01) 


- - emm ` emm ` emm ` emm ` em ` mm ` emm ` emm ` emm ` omg ` mt out em emm emm emm emm emm emm αι omg emm y  -. emp omg ο ως - gp - 
-e emm ` emm ` emm ` emm ` emm  - -ὃ- -ω -» ο ο emm em emm em om emm omg emm emm emm emm emm emm amb emm emm emm emm em emm emm emm emm emm emm em gem em em gët emm emm emm gp rm em did 
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APPENDICE 


SAMPLES ORT TABCE CODE 


01. Table of Corps Code 
DATA ITEM ACRONYM TYPE 
Corps ID CORPS E 


Line 
Engineer 
Electronics 
Marines 


-e OA A AO BO EA D ο . ο ο emm ο y A UY A ου ο amb emm y emm omg emm omg emm op A A emm emm op « omg om emm em om o AED AR emm om emm om emm emm emm emm emm emm emm emm em emm em m 
mp ` emp ep em mm emm emm emm ο emm emm gp emm eee emm emm emm emm mm emm am mm emm emm emm am zë emm emm em emm emm emm emm emm emm emm emm emm emm emm emm emm emm emm emm  - 


DATA ITEM ACRONYM TYPE 
Rank ID RANKID E 
Description RANKDES C 
Education RKEDUREQ E 
requirement 

Echelon RKECHREQ C 
requirement 


CORPCODE 
LENGTH DESCRIPTION 
2 Corps code 
10 Corps name 
Q5 Administration 
QG Specialist 
07 Health 
Q8 Woman 
RANKLIST 
LENGTH DESCRIPTION 
SS Rank code 
20 Rank title 
2 Education require- 
ment (see RNKEDURQ 
table ) 
2 Echelon requirement 


(see RNKECHRQ 
table ) 


11 Admiral / General 


Colonel 
Lieutenant Colonel 
Major 


Vice Admiral / Lieutenant General 
Rear Admiral / Major General 
First Admiral / Brigadier General 


18 Captain 

19 First Lieutenant 
20 Second Lieutenant 
21 Candidate Officer 


ez es amp se em ee ee em ewe emm emm emm emm emm emm emm emm amp amp = sw sw emp om SP SB omg emm emm sw ewe emm amp ew emm gp sw emm om omg amp emm sw emm emm emm aa emm emm emm emm emm emm GRO emm emm ΠΠ emm omg emm - «πὶ 
mm amp em om emm emm em emm em emm em em em emm sw sw emm ss emm emm em emm emm emm emm emm emp emm ss ws emm emm sw sw emm emm emm sw ewe ws emm emm emm sw sw  - -ωω -- --. sw ewes aw .- 
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Q3. Military Education Level MEDLEV 


Ss eg eg es es es ez es es ez e e eg eg eg eg am eg em πρ em eg em om amp omg amp omg omg απ omg emp απ emm amp emp «αρ omg «πρ πω. emm em em emm wt amp amp amp m wem a «-Ἡ wm wm wm vm em vm vm wm vm 
mm eg em ep eg eg e eg em em eg eg eg eg em em em em em em em em eg αν emm emm emm emm omg eg ont eg omg - emp mg eg ob emm emm -ν emm emm «αρ em amb «πο απ amb -- - -- απ am am an am e am am am am 


DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 
Education level MEDLEVID C 2 Education level 
Description MEDLCEDES C 30 Description 

11 National Defence 16 16t 0££. Continuing Edu. 
12 Joint Command & Staff College 17 Naval Academy 

13 Command and Staff College 18 Basic Officer School 

14 Staff College 19 Candidate Officer School 


15 2nd Off. Continuing Education 


-— = = eg eg aa | eg op eg eg eg op og eg eg eg emp em emp eg ee emp emp emp eee ee eee ΠΟ ` emm 
mg eg eg eg eg eg eg eg eg eg eg eg eg zt omg ασ ασ emm em emm emm emm emm emm em emm eg eg ` em eg eg ` emm emp emm emm ie emm ` emm ` emm emm ` emm emm ` emm emm emm ` emm ` emm emm emm ` emm emm 


-- sw ew ew ew ew sw ο ο ο ο ο ssw emp ` omg emp x sw emm emm ` emm es es] ss emm ee ee emm ` omg emm ` emm ` emm emp ` omg ` emm emm ` emm ` emm , - -  -- ` emm emm ` emm ` omg omg ` emm ` ob - emm ` et -- 
mmm EE E E E E ` emm ` em emm em ` emm ` em ` em ` em em emm ` emm omg ` o ` ef ` zt ` emm ob em em emm emm emm emm emm ob emm emm emm emm emm emm ω» emm emm emm emm emm emm eg emm egen mb eg emm o = 


DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 
Edication level CEDLEVEL C 2 Education level 
Description CEDUDES C 30 Level o£ Education 
‘11 University Level 13 Senior High School Level 
12 Academy Level 14 Junior High School Level 


15 Elementary School Level 


mmm ` omg ` emm «Ἢ x uu ou um ee eee «ο «παρ 
-- κ emm ` omg - - ο ο ` emm em ` emm ` omg ο ` emm emm ` emm emm ` emm ` emm omg omg ` omg omg ` omg ` ο ` emp ` omg ` emp ` omg omg ` emm ` omg emp omg emp ` omg ` om omg emm ` omg emm ` emm emp ` emm ` emp amp emm om  .  .  .. - 


Q5. Table of Religion Code RELIGION 

DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 
Religion RELCODE N 1 Religion code 
Description RELDES C 10 Name of Religion 
1 Moslem 4 Budhist 

2 Catholic S Hindu 

3 Protestant 6 Other 


wem ` emm ` em ` emm em ` em amp amp amp amp amp amp amp amp emm amp ama em ee se eee eee em em em em A es ez eg e em em em es 
-æ ao emm ` emm apr ap ar apr aD ap ap =e κ...  - αι ἒὓϱ -  - - emm D -  -. ο - eg ep ο . emm og emp em eg zm emm e emm emm emm emm emm emm emm - 
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Q6. Table of Sex Code SEXCODE 
DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 
Sex SEX .. NEE Sex Code . 
Sex SEXDES C 6 Sex 
i Male Tak aa --- 2 Female > ae 
07. Table of City code CITMESDE 
DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 
City code CIT?CODE N 3 City code 
Description CITYDES 5 20 The name of City 
101 Jakarta 201 Tokyo 
102 Bandung 201 Bangkok 
103 Bogor 203 Singapore 
104 Semarang 203 Manila 
105 Jogyakarta 214 Paris 
106 Surakarta 215 Londen 
107 Magelang 301 San Francisco 
108 Surabaya 302 San Diego 
109 Malang 303 Monterey 
110 Madiun 304 Washington DC 
111 Medan 309 Quantico 
112 Ujungpandang 306 Newport 
113 Denpasar 307 Lackland 
etc. etc. 
08. Table of Education Result RESULT 
DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 
Result code RESCODE N 1 Education result code 
Description RESDES € 25 Result of education 


Sa aaa aii OD ee vm emp emm emp ee ee ee ee . αν . αν ee αν αν αν «απο ee D 


1 Graduate 
2 Certificate 


mmm ` emm ` emm ` emm ` emm ` e e ap -.. ο  - emm emm emm emm mmm emm 
mI - -- - emm ee emm omg emm emm emm emm emm  - emm ve κ. -- UMU - 
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ES. Table of Skin Color COLORSK 


πο ο ee πο aa — μαμα πο -— am aa o — —— ee aa am ee ην ae am  « aa απ ae oe απ ae ae es =e =n A a= απ «αν an em as as as af as an) an as as as «an an a= απ «== mp απ απο «πὶ om 
"ap em ο ee e A e ama e em ae am em sp em em em em em ap am aib em em A y em em a e em emm em emm emm emm em απο αν emm emm emm em emm emm wm ab Ze am =e am am =m am =æ = 


DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 

Skin code SKINCODE N 1 Skin color code 
Description SKINDES E 6 SKIN COlor description 
ee SS ο ο ο ο EE «τον, 
1 Brown 3 White 

2 Black | 4 Yellow 

10. Table of Hair Type TYPEHR 

DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 

Hair code HAIRCODE WN 1 Hair code 
Description HAIRSDES C 15 Hair description 

1 Curly § © (9 Straight stiff ο ... 
2 Wavy 4 Straight limp 

11. Table of Eye Color COLOR YE 

DATA ITEM ACRONYM TYPE LENGTH < DESCRIPTION 

Eye code EMBCEUDE N 1 Eye color code 
Description EYEDES C SI Eye color 

pass 7 vo 3 Brown ©. 
2 Blue 


67 


12. Table of Blood Types BLOOD 


ds emm ` em ` omg ` emm an ama ap = =p =p =p =p emm aa =p =p =p =p ee aa ama omg le ele omg ama am eg aa aa ee aa aaa ee ee eee eee eee ee eee eee ee ee aman 
-—— ap ap =p =p ama aa ama -ωωω - ama ama ama am ama aaa emm aaa emm ama aa «Ἢ ama am emm a aa aaa aaa aaa ah at ama aa emm emm emm emm om  -  - emm om DO emm ama o emm emm om 


DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 

Blood code BLOODCOD N 1 Blood code 
Description BLOODDES e 2 Blood description 
la* Oo a M 5 AB+ ΙΙΙ 
2 À- 6 AB- 

3 B* 70 + 

4 B- 8 p= 

13. Table of Uniform Size UNIFORM 

DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 

Uniform code UNICODE N I Uniform code 
Description UNIDES C 6 Uniform description 
1 Small 3 Large 

2 Medium 

14. Table of Echelon Code ECHELON 

DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 

Echelon code ECHCODE C 2 Echelon code 
Description ECHDES E ri Echelon description 


11 Echelon 1-A 23 Echēélon 2 C 
12 Echelon 1-B 24 Echelon 2-D 
13 Echelon 1-C 25 Echelon 2-E 
14 Echelon 1-D 26 Echelon 2-F 
15 Echelon 1-E 31 Echelon 3-A 
16 Echelon 1-F 32 Echelon 3-B 
17 Echelon 1-G 33 Echelon 3-C 
18 Echelon 1-H 34 Echelon 3-D 
21 Echelon 2-A 35 Echelon 3-E 
22 Echelon 2-B 41 Functional 


68 


I Occupation list JOBLIST 


-—— ` emp ` em em emm wenn em e eg emm emm emm ama o a A emm omg ama emm o ” eee eee ee eee am 
mmm ` emm ` emm mm see em mp em emm OM OO mp emm ο emm emm emm emm emp - emm  ,. emm emm om emm oi ωω. -. - emm emm om - -  -. -. -- emm ο ο κ... 


DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 
Job ID JOBID C 3 Job code 

Job Descript JOBDES C 30 Name of Job 
Echelon ECHELON E 2 Job echelon (see 


ECHELON table 14 ) 


Station JOBSTAT C 2 Station 
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APPENDIX D 


ΕΚΑΠΡΕΕΣ ΟΡ PROCRARN 


Jt oto EES KS Sg Ess sg sg ss SKS gg SKS gg gg gg gg gg XS 


+*+ PROGRAM Nëckel * 
+ AUTHOR : DJOKO M. ARIYADI x 
+ DATE WRITTEN TIMA T3286 ` 
+ PURPOSE : THIS IS THE MAIN MENU- PROGRAM FOR THE . 
* OFFICER SYSTEM * 
* PROGRAMS CALLED BY THIS PROGRAM ARE * 
* ADDMENU. PRG DELMENU. PRO + 
* CHOMENU. PRO PRNMENU. PRG * 
* QUEMENU. PRG * 
+ NO FILES DSF ARE USED, * 


SS A A E SKS SS SS SS SS SS SES SS SS SS SS SS SS SKS EES EK vg SX € 
SET COLOR TO 30,14 

SET TALK OFF 

SET CONSOLE ON 


ERASE 

STORE. TOP ASS 

@ 8,22 SAY ' WELCOME TO THE NAVY OFFICER PERSONNEL SYSTEM. 
8 12220 GAY τ ENTER YOUR PASSWORD PEEASE , 


Sit CONSOLE (Ore 

ACCEPT TOTRASS 

STORE ee 

SET CONSOLE ON 

IF TRIM(PASS) <> “PERS” 

@ 15,10 SAY “YOU TYPED THE WRONG PASSWORD, TRY AGAIN FROM τα. 
BEGINNING’ 

0 17,25 SAY "QUIT "TG. DBASE 77 
CANCEL 

ENDIF 

RELEASE PASS 


DOF WHILE T 
STORE ΠΗ ANSWER 
SET TALK ØFF 
ERASE 
? n " 
OSA OE O ER MAIN MENU 
MAY 1986" 
SET COLCORTPO 4 


m A= Sse ADD RECORD? 


70 


s 
» 


* 


Fal ra za 


1) oD ος) 


9 ον ον y 


ο οὐ οὐ 69) 


@ 2 


H H 

===> DELETE RECORD? 

H H 

---> CHANGE RECORD" 

H H 

Y ---» PRINT" 

H H 

à ---» QUERY INFORMATION " 
H H 

: ---> RETURN TO DATABASE" 
H H 

` ---> RETURN TO DOS" 

H H 

H H 

3,16 SAY "SELECT AN ACTION BY LETTER. =======> " GET ANSWER; 
RENI" 


PICTU 


mud oO SAY CHR 


RE 
DO 


EN 

ENDD 
ERASE 

RETURN 


AD 
.CASE 
CASE ANSWER 
DO ADDMENU 
CASE ANSWER 
DO DELMENU 
CASE ANSWER 
DO CHGMENU 
CASE ANSWER 
DO PRNMENU 
CASE ANSWER 
DO QUEMENU 
CASE ANSWER 
CANCEL 
CASE ANSWER 
DO QUIT 
OTHERWISE 
DO ERROR 
DCASE 
O 


(7) 


aA 


ος 


E 


' p? 


"ο 


5’ 


“ας, 


ων 


ee ee ee ee ee ee 


* PROGRAM NAME : ADDMENU. PRG * 
* AUTHOR : DIOKO M. ARIYADI * 
* DATE WRITTEN : MAY, 1986 . 
* PURPOSE : TO PRESENT THE ADDITION MENU * 
+ PROGRAMS CALLED BY THIS PROGRAM ARE : * 
* ADDOFF. PRG ADDRANK. PRG ADDCORPS. PRG ADDRCODE. PRL < 
^ ADDJOB. PRG ADDJCODE.PRG  ADDEDU.PRG ADDECODE.PRG * 
* LOCAL VARIABLE USED : ANSWER * 
* NO FILES DBF ARE USED. * 
LA JE NE E RENE. Jg mg JG JJ JJ JJ JJ db JJ Jb Jb JEN EE 
CLEAR 
ERASE 
DO WHILE T 
STORE " " TO ANSWER 
SET TALK OFF 
ERASE 
2 n "t 
a 2,1 SAY "ADDITION MENU : 
MAY” 1386" 
set color to 4 
f Lou oc o cw - em m aaa jasa eee pagan gag ng gg ga gg 
2 " ad 
"MET RECORD ADDITION OPTION" 
d H n 
Y "t tt 
? hi tt 
κ.α O --> OFFICER ADDITION K --> JOB; 
ADDITION” 
a tt tt 
e ER C --> CORPS ADDITION L ==> JOB; 
CODE ADDITION " 
2? tt tt 
NEG E --» EDUCATION ADDITION R --> RANK; 
ADDITION " 
? " n" . 
d ed F --> EDUCATION CODE ADDITION S ==> RANK: 
CODE ADDITION" 
2? "t tt 
2? Ad n" 
2 "t " 
το. TYPE RETURN KEY, RETURN TO MENU" 
IMSS EE 
Se e e SS e e E e E e e e e e e ES e Se e e e e H ' 
@ 23,16 SAY "SELECT AN ACTION BY LETTER. =======> " GET ANSWER; 


PICTURE SOENE 
@ 23,15 SAT ICH ο) 
READ 
DO CASE 
CASE ANSWER = ?’ ” 


po 


ENDCASE 


RETURN 


CASE 
DO 
CASE 
DO 
CASE 
DO 
CASE 
DO 
CASE 
DO 
CASE 
DO 
CASE 
DO 
CASE 
DO 


ANSWER 
ADDOFF 
ANSWER = 
ADDCORPS 
ANSWER = 
ADDEDU 

ANSWER = 
ADDCEDU 

ANSWER = 
ADDJOB 

ANSWER = 
ADDCJOB 
ANSWER = 
ADDRANK 
ANSWER = 
ADDCRANK 


OTHERWISE 


DO 


ENDDO 


ERASE 


RETURN... 


ERROR 


E” 


LE 


E? 


ΕΠ 


SN 


zo 


5 
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SKS Kg SKS SS gg gg Sg gg gg gg ES SS SS SS SSES gg geg gg gg Sg 


PROGRAM NAME 
AUTHOR 
DATE WRITTEN 
PURPOSE 


DJOKO M. 
MAY, 1986 


DELORE SPRE 
DEELTDENERG 


LOCAL VARIABLE USED : 
NO FILES DBP ARENMESEDI 


+*+» +*+ κα καὶ Ἀ 


* 


DELMENU. PRG 
ARIYADI 


TO PRESENT THE DELETE MENS 
PROGRAMS CALLED BY THIS PROGRAM ARE 
DELRANKSPRG DEECORT sbi 


DELEDU. PRO ΡΕ συ σα 
ANSWER 


DELEGODESPRO 


P 
* 
* 


* 


ΕΕ; ΟΤΕ. ΕΠΕ 


+ 


* 


SS SKS ss ss ss sg Kë ss Ss gëss Rss gg ss SEX g 


CLEAR 
ERASE 
DO WHILE T 
STORE " " TO ANSWER 
SET TALK OFF 
ERASE 
2 H H 
@ 2,1 SAY "DEBEN 
ΠΕΙ ος 


SET COLOR PLORS 


MENU ; 


DELE TE 


o n " 


2 ΡΕΕΕΤΕ 
JOB CODE? 

? " "n 

zo» E DEBETE 
RANK " 


ΡΕ ΕΤΕ 


DELETEZOPTION 


OFFICER 


CORES 


EDUCATION 


EDUCATION CODE 


TYPE ORE TURNS EY, 


K =--> ρε 
L --> DEBE ο 
R =--> DEET 
S -=--> DELCE TEE 


RETURN TO MENU" 


emm =e ae ` emm ` see emm emm em emm sw emm emm emm sw emm ee emm ae sw emm emm emm emm se emm emm ose emm sw am om acme mm emm emm emm o] 


234,15. SIN 
PICTURE TPRI 


(4-23, 16 SAVER 
READ 
DO CASE 


C7) 


τα 


wm am -- 


ENDCASE 


ENDD 
ERASE 
RETURN 


CASE 


ANSWER = 


RETURN 


CASE 
DO 
CASE 
DO 
CASE 
DO 
CASE 
DO 
CASE 
DO 
CASE 
DO 
CASE 
DO 
CASE 
DO 


ANSWER = 
ΡΕ ο 
ANSWER = 
DECCORPS 
ANSWER = 
DELEDU 
ANSWER = 
DELCEDU 
ANSWER = 
DELJOB 
ANSWER = 
DELCJOB 
ANSWER = 
DELRANK 
ANSWER = 
DELCRANK 


OTHERWISE 


DO 


HU 


ERROR 


Ep 


V0 


^E" 


ΒΕ’ 


"IK 


a 


5m 
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p 


SR Sg Sg KS gz sg sg gg gg gg eg gz vw κα He HS HR He RHEE He Hee eR Hee ee E Y A Y 0€ 


* PROGRAM NAME = CHEMENUS ERE » 
+ AUTHOR : DJOKO MT ARTI ADI + 
* DATE WRITTEN ¿MAS * 
κ PURPOSE : TO PRESENT TRE CHANGE MENU . 
+ PROGRAMS CALLED BY TI LS παω απ -- * 
* CHGÜOFFPF. PRO CHGRANK. PRG CHGCORPS. PRO “GG. Cera. PKG Ne 
` _ CHGIJOB. Pas CHGJCODE. PRG CHGECODE. PRG) EC HGE DCERE « 
* LOCAL VARIABLE USED : ANSWER * 
* NO FILES DBF AHRENMUSED: * 
E E E E E E g 
CLEAR 

ERASE 


DO WHICE T 

STORE " " TO ANSWER 

SET TALK OFF 

ERASE 

? n" " 

D 2,1 SAY "CHANGE MENU 
MAY “1966 

SET COPORGTD 4 


emp == -—  — weiss ο -——— . == = Ld o —_ == = - - ο am == -— == == am am «ο — á * -æ A— =p © aa -— = =» -e - am Ss m -— = = a — — ga aga mmm — = * 


wm ` e = e E emm ` emm ` emm es SB emm emm emm am a a a a 


RN RECORD. CHANGE OPTION?” 


g ο --> CHANGE OFFICER k -=--> CHAN 


o n" " 
o 


" ο --- WANG BAE DEDE | L> CHANCE 
Qon E --» CHANGE EDUCATION Bo--2 CHARME 


d eT F --> CHANGE EDUCATION CODE 5S =--> CHANGES 


d TYPE RETURN KEY, RETURN TO MERNEK 


mg ο ο es ews eos emm om is se oe aa am i ie πο --. m "e = 


@ 23,16 SAY "SELECT AN ACTION BY LETTER. -------> "CETA EE 
PEC ΡΕ, 


85 23, 16 SAY ΓΠΕ,. ) 
READ 
DO” CASE 


ENDEASE 


CASE 


ANSWER = 


RETURN 


CASE 
DO 
CASE 
DO 
CASE 
DO 
CASE 
DU 
CASE 
DO 
CASE 
DO 
CASE 
DO 
CASE 
DO 


ANSWER 
CHGOFF 
ANSWER 
CHGCORP 
ANSWER 
CHGEDU 
ANSWER 
CHGCEDU 
ANSWER = 
Cre OB 
ANSWER = 
τ ΠΕ 
ANSWER = 
CHGRANK 
ANSWER = 
CHGCRANK 


H Ui u || 


OTHERWISE 


DO 


ENDDO 


ERASE 


RETURN ` 


ERROR 


1; 


CE 


"ET 


UIS 


' R? 


ΕΕ 


TAA 


SES gg gg wg gg gg E E E BB ee σα gg ο ο ee ee BB BN BI 


» 


τ. π᾿ 


* 


PROGRAM NAME 
AUTHOR 

DATE WRITTEN 
PURE OSE 


στο 
ΜΑΥ, 


QUERYA, QUERYB, 


LOCALE VARIABLE USED 
NO FILES DBP ARE @USED. 


pe 


13986 

: TO PROVIDE QUERY 
PROGRAMS ΟΑΙΙ 5Ο ΒΥ ΤΙΣ ΕΡΕ ο ο... 
QUERYC, 


:t ΟΗΡΜΕΝΗ Σπα 
ARIYADI 


MENU SEEECT 


QUERYD, OUERTE P 


ANSWER 


ION < 


RG < 


eee eH eRe HHH HH HHH See HHH HEH HEHEHE He HHS Hee He Hee He eee eee ee eee FE Sg 


CLEAR 
ERASE 
DO WHILE T 
STORE " " TO ANSWER 
SENTADA Ub 
ERASE 
? H n 
@ 2,1 SAY "QUIE 
MAY 19896 


SET “COLOR ia 


H 
" n 

o n e 

2 H " 

2 A 
INFORMATION" 

P H " 

2 T B 
INFORMATION" 

o η " 

? o" € 

? n n 

gon D 

2 n n 

"n n E 

Ω n H 

? H " 

m n 

2n 

@ 23,16 SAY 

PICTURE "!" 


ο 23,16 SAY sere (7 > 
READ 
ΓΕ ου ο 
CASE ANSWER 
RETURN 


— » , 


n 


---> 


---> 


---> 


---> 


---» 


QUERY OPTIONS 


PROVIDE MIL. 


PROVIDE SANDS E 


PROVIDE RANK HISTO 


υπο τις His heir 


DIS ο ως TETEH 


TYPE RETURNERET, 


78 


MENU 


<e - | eee en 
em ` wë am  -Ὃ om Ἢ emm aa aaa amma  - - κ eee eee πα 


n 


EDUCATION 158, 


DUCATION; 


RY INFRMAT TUN" 


Y ENEE 


LE INFORMA iS 


RETURN TO MENUS 


= a am zm ` aa am -. emm ` eee ee ees ee 
- ο am aa aa aaa amma emm ami emm ama emm emm emm ama emm ama em amma ama - omg omg wt aa akan  - em emm emm emm ` emm emm amp emm emm emm amp amma eee eee 


> " 


ENDCASE 


CASE 
DO 
CASE 
DO 
CASE 
DO 
EASE 
DO 
CASE 
DU 


ANSWER 
QUERYA 
ANSWER 
QUERYB 
ANSWER 
QUERYC 
ANSWER 
QUERYD 
ANSWER 
QUERYE 


OTHERWISE 


DO 


ENDDA 


ERASE 
RETURN 


ERROR 


(o 


EE: 


SUE 


7J 


ete ee eee eee NG Ke Hee ee gg sg gg gg gg gz gg gg gg gg Kg wg gg «PO 39 AE 9 3o 0 03 0 E Y BI 


PROGRAM NAME πι ιο Επ - 
+ AUTHOR : DIBKE TARI ADI e 
+ DATE WRITTEN + MAY ΤΕΕ « 
*- i PURPOSE : TO PROVIDE PRINT MENU SELECT ia ` 
« PROGRAMS CALLED BY πιο Επ το... . 
* PROFMENU, PERERSSNU. PHRIGINMENUSTSE « 
* LOCAL VARIABLE USED": ANSWER e 
+ INO FILES ΕΕ ΠΕ ο ου * 
sg E E E E E ORO E60 E E E E OR OR ORDER OR ORE eee eRe eee ee ee 
ERASE 


DO WHILE T 

STORE " ” TO ANSWER 

SET TALK OPF 

ERASE 

? " n 

a 2,1 SAY TERTI MENU 
MAY 1986" 

SET -COLOR TOTS 


mmm ` em ` mm ` emm ` mm ` om ` mm emm ` emm emm emm of om om zem wm om mm om emm om om om om mm em emm emm emm mm emm om emm om om emm mm mm om emm om emm em >- — -= æ -  - - mmm ` o  - “πα 


2 PRINT MENU OPTIONS " 

2 π. n 

9 nv °» 

2 n H 

DM n 

2 n M 

? " P ---» OFFICER RECORD" 

^ M" m 

DM " 

SC R ---> RANK CODE RECORD" 

oh n" ^4 

2 " " 

ἘΠ Sl A IO IST Co D 

> m n 

o m" " 

2 n n" 

2.» | TYPE RETURN KEY, RETURN TO MENU" 

ΦΡΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞι 
mL 

2 23,16 SAY "SELECT AN ACTION BY LETTER. =======> " GET ANSWER; 


PICTURE me 


@ 23, 16 SAY Cue 7) 
READ 
- E E 
ASE ANSWER 
RETURN' 
CASE ANSWER = "Pi 
DU PROFMENU 


8o 


CASE 
DO 
CASE 
DO 


ANSWER = 'R' 
PRRKMENU 
ANSWER = * J’ 
Pao OMe NU 


OTHERWISE 


DO 


ENDCASE 


ENDDO 
ERASE 
RETURN 


ERROR 


al 


KA KK EA IA A IA Hee eH HH Hee AE AAA ο ο ϱ ας 


* PROGRAM NAM 
AUTHOR 


* * 


ΠΕ 


PERONAME. FR 


* 3” * 5 


E eas 
DS GM. 
DATE WRITTEN : MAY 


1986 


ARIYADI 


TO PROVIDE OFFICER PRINT MENGER Γη + 


LOCAL VARIABLE USED 


ANSWER, ANSW 


+ NO FILES DBF AREMUSED. 


a BB BB BN GG BB BB BN BN GB BB BN GB BB BB BN BB BB BN BB BB BB hi 


CLEAR 
SETETALK OFE 


SET CECOR TO 2 


DO” WATER” IT 
ERASE 
? ? ? 
G7 πας 
M 


0,95 


PRINTI T OFFICERS 


AX 19386” 


SET COLOR TO 4 


e - - D oe iii i meme A ee 


rm 
— — ee — ae = eR ew ew emp ewe emm es emm 


2.9 2.3 3 
- - - 

- 
- 


e oe € 
- 
` 


>) οὗ οὐ 
` 


2 
f 
SET cm 
f) 


-= am am emm op gt gg i oi i ii el 


PI am am =n ap emm d 
— — — am a ese emm emt ae emt em = | emp em 


STORET: 
A ES 
ANSWER TPICTURE 
READ 

DO CASE 
CASE 
RET 

CASE 

DO 

CASE 

DO 

CASE 

DO 


0 4 


PROGRAMS CALLED BY ΤΙ. ισα αμ  Ε 
M, PERSERNO Εκ 


PERSRANK.FPRM,. PERSRIGS IA τη S 


OPTION 


PRINT) GFP Geis gets) OP? TIN 


---» 


---» 


---» 


BES BY NAME JB: 
στ ΕΥ RANK 


LISTIE SERIALS 


TYPE πετ ο οἳὓ ο ο ος 


"^ TO ANSWER 


SAY T 


"muon 
9 


ANSWER 
URN 

ANSWER = 
PROFNAME 
ANSWER = 
PROFRANK 
ANSWER = 
PRORSERN 


SELECT AN ACTION BY LETTER ====> * GET 


CN 


' R? 


τας 


+ 


OTHERWISE 


DEWE RROR 
ENDCASE 
ENDDO 
ERASE 
RETURN 


JRoGto GB OR 3 AA A O A A MA A i i i i i IA ME TE A A A A i ie i i i ee ee ee ee ee i ee, i E E A E gg gv 


* 


* 


+*+ * x x 


+ 


PROGRAM NAME : PRORRANK SERI 


AUTHOR : DIOKO MAPA 1 
DATE WRITTEN : ΝΑΤ, 1555 
PURPOSE : TO PRINT OFFICER S List ;ΤΕΝ ΝΡ 


PROGRAMS CALLED BYTTET SERRE RAEE 
PERSRANK. FRM 

LOCAL VARIABLE USADO IAS 

DBF FILE USED GARE a ου ου σοι ο Επ 


νο τας τανκς νο οσα. σος ο ας τας ο. ας ας ας κ. ντ τν» 


ERASE 

CLEAR 

SET TAEK OFF 

ΕΡΤ Ρως τα 209 
STORES TA TODOS FA 
DO WHILE O: FEAGL 


σε ο ae 


OQ 12,20: SAI” BE PATIENT PLEASE SOS NINOS 
INDEX ON RAN, TOET COTEI 


SELECT PRIMARY 
USE OFFICER INDEX TF1 
SELECT SECONDARY 

USE RANKLIST 


JOIN TO OFFRANK FOR P.RANKID=S. RANKED FIEEDS P.SERNG, T E 
RANKDES 


USE OFFRANK 

ERASE 

STORE Τ Το; ο ο 

DU ΗΠπτΕ ο ερ 
ERASE 


SG 8,15 SAY 'DO YOU WANT THIS EST ο ο ο ο or. 


Επ ΙΕ A 
2 H " 
ACCEPT S ENTER “s fOr SCREEN θε 
HARDCOPY cone RS 
READ 
DO CASE 
CASE Q:PRS e "ez 
ERASE 
REPORT FORM PERSRANK 
STORE F TO Q:FLAGI 
STORE F TO Q:FLAG2 
CASE Gers = Th” 
ERASE 
REPORT FORM PERSRANK TO PRINT 
STORE F TO Q:FLAG1 
STORER ATO Q:FLAG2 
OTHERWISE 
STOR- SFERT ο ο «ο 


84 


ΕΕ 


LOT 


DORE ROR 
ERASE 
COOP 
ENDCASE 
ENDDO 
sor COLOR TO 4 
me H H 
D TYPE PANY SREY TE °CONTENUE 3 
SET CONSOLE OFF 
WAIT 
EET CONSOLE ON 
ENDDO 
RETURN 


85 


WEE WE EE ας ο A A E E A Ed A Roo AE e o9 o0 9 A A 5" «« ee E ἅ- 


+» PROGRAM NAME : PROFNAME. PRG + 


+ AUTHOR . DJOKO TM ΕΙ"; r 
» DATE WRITTEN : ΠΤ, haem * 
- PUR SE : TO PRINT CFFICER'S LISTING EY Sivas ‘ 
* PROGRAMS CALLED BY 78s RO  --. ΄ 
1 PERSNAME. FRM S 
+ LOGCAL VARIABLE ΟΞΡΕΡ ο - | ` 
* DBF FILE USED ARE: BELTIOEBOSADURDTT * 
SS SS ss E E A E E EE E ο BB HEHEHE EH HE He He sg 
ERASE 

CLEAR 


So eas, ORE 
SETICOCOR TO 20,53 
STORE T τος ο ο αι 
Ρο οτι ΕΕ ο με σας. 
USET ORETCECE 


@ 12,20 SAY " BE PATIENT PCEASE, > DIO SS m 
INDEX ON παπα πα τα 


SELECT PRIMARY 

USE OFFICERCTENDEX TF1 

SELECT SECONDARY 

USE RANRLCIST 

JOIN TO OFFRANK FOR P.RANKID=S. RANKID FIELDS P. SERNO, PIN CHE 
RANKDES 


USE OFFRANK 
ERASE 
SIORE T TO Q FLAGZ 
DO WHILE @:FLAG2 
ERASE 
@ 8,135 SAY “DO YOU WANT THIS LIST ON THE SCREEN ör PRIN ΙΝ 
> m" " 
ACCEPT T ENTER ’s’ tor SCREEN or '"h τα 
HARDCOPY" to Q:PRS 
READ 
DO CASE 
CASE GPRS = 's' 
ERASE 
REPORT FORM PERSNAME 
SIGRESSR TO DO ο οι 
SHORE TO WELAD? 
CASE OTRS = nR 
ERASE 
REPORT FORM PERSNAME TO PRINT 
STORER FTO QU PAGS 
STORETF TO O:FLCAC2 
OTHERWISE 
STORE F TO Q:FLAG1 
DO ERROR 


ERASE 
COOP 
ENDCASE 
ENDDO 
SET COLOR TO 4 
» Η " 
A T PRESAN ΤΕΙ ΤΟΡΟΝΤΟ 
ΞΕ CONSOLE OFF 
WAIT 
SET CONSOLE ON 
ENDDO 
RETURN 
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vg vg gg SE A Sg gg geg gg gg vg gv gv gg gg RSR vg gg vg Ess Hee eRe eT eH Hee 89 Y 


* PROGRAM NAME : ΕΠΤΕΞΕΠΗΙ στη 
* AUTHOR + DJOKO M EARTE 
DATE WRITTEN ΠΑΣ "τα 


¥ 


PROGRAMS CALLED BY THES πα επ ο οσα 
PERSERNOZJEBRHM 

* LOCAL VARIABLE USED ο τα- 

* DBF FILE USED ARE DEBE E NGARANG Ii 


+ * X 


PURPOSE : TO PRENT OPS LISTINE BY οκ Αμα οσον 


* 


+ 


4 


e 


P 


* 


4 


* 


3 3f 3€ 3b 38 E E E 3E 3E 3E 3E 3€ E E E E A Ad AE Ad Ed Ed dE dE dE dd EA dE dE dE dE dd dE dd dd 


ERASE 

CLEAR 

ΞΕ Ες ος 

SET COCOR TO ον 

STORE T TO Q:FCAGI 

DO WHICE ο ρόκα 
USE OFFICER 


@ 12,20 SAY " BE PATIENT PLEASE SIRO TE ο 
INDEX ON ΟΕΕ ο το τοι 

SELECT PRIMARY 

USE OFFICER NOREX ΤΕΙ 


SELECT SECONDARY 
USE RANKEEST 


JOIN TO OFFRANK FOR P. RANKID=S. RANKID FIELDS P. SERNO P -. 


RANKDES 


USE OFFRANK 

ERASE 

STORE T TO ας ον ο5ο 

DO WHILE ο ae 
ERASE 


88,15 SAY 'DO YOU ΝΑΝΤ ΤΗΤΥΣ ON Τις sear or 


? n " 


ACCEPT ay ENTER "s τος ο ΟΕ σα mi 


ΗΑ κο eae a srk S 
READ 
DO CASE 
CASET Q:PRS = “se 
ERASE 
REPORT FORM PERSERNO 
STORES? TOO EIAS 
SIWAETE TO QUECAUDZ 
CASE Oke PRS = ‘hh’ 
ERASE 
REPORT FORM PERSERNO' TOTERINT 
STORE TF TOTO: F CAGI 
STORENEP το ο RIAS 
OTHERWESE 
STORESR TO Q: ECAGOI 


88 


[η 
wv" 


J 
H 


e." 
^ 
* 


DOTE RO 
ERASE 
OB? 
ENDCASE 
ENDDO 
ου COLOR TO 4 
o n a 


9 H 


SET CONSOLE OFF 
WAIT 
SEF CONSOCE ON 
ENDDO 
RETURN 


UPE T ANT KEY TOFCONTINUE 


H 


ce ee eH ee et OR ee ee ee ee ee RY OE 


+ PROGRAM NAME ο ΤΕ, RO * 
* AUTHOR : DIOKG TH. ARITADI + 
* DATE WRITTEN : MAY, 1986 * 
+. T PURROSE : TO DELETE OFFICERER Ep + 
+ PROGRAMS CALLED BY INIS ΤΘ; "Ἢ + 
* DBF FILES USED “AREA + 


eee eee ee eee eee eee eee eee eee eee eee ee ee ee ee ee te o 
SET TALK OFF 

SET CONSOLE ON 

ERASE 

STORE t TOTf1LaG 

DENEWEH TIER 

SET COLOR TO 30, 14 


USE OFFICER 
INDEX ON SERNO τω Εώς 


USE OFFICER INDEX DELOFF 
STORET ^ TO msn 
ERASE 
a 3, 23 SAT “TO DELETE OFFICER RECORD: 
@ 10,23 SAY 'ENTER SERIAL NUMBER * GET msn PICTURE κ 
e 12,23 SAY "eg: 005001; 206005; Qu7001’ 
@ 16,23 SAY “ENTER A BLANK, RETURN TO DELETE MENU ' 
READ 
if msn = 
RELEASE msn, flag 
RETURN 
endif 
FIND &msn 
IF # = o 
SET COLOR TO 112, 140 
@ 12,20 SAY ’°SERIAL NUMBER NOT ON THIS PERS RECORDS: 
@ 13,40 SAY CIR 
SET TACK OFF 
STORE 1 TO y 
DO WHILE v<200 
STORE v+1 TO v 
ENDDO' WHILE οσο 
SERT COLOR TOA 30,14 
eer 
ENDIF # = @ 
ERASE 


, ’ 


STORES '" to mname 
STORES ο τω MESE > 

STORE (0 to mrankid 

STORES ^ to meduid 

STORE ' * to msex 

STORE ‘VEO πα ι εεωσα 

STORE = ee MDirtčhmm 


30 


MORE 
STORE 
STORE 


GLORE 
STORE 
STORE 
STORE 
STORE 
STORE 
SIERE 
STORE 
STORE 
STORE 
STORE 


» » 


TENDA Eny 


$ ? 


da. T rom) 


» ? 


ta m elrgioon 


serno to msn 

name to mname 

Corps = cancer ps 
rankid to mrankid 
eduid to meduid 

sex to msex 

Dire naa@ele mbirthed 
birthmm to mbirthmm 
Birthyy to mbirthyy 
ΕΞ: mbirthp» 
religion ta mreligion 


ORSR ONSE A THIS IS THE DATA YOU WANT TO DELETE? 
AS SAY. SERIAL # ^ «mzn 

ero Z3 SAY NAME "GET mname 

ο ο το SAY CORPS "GET mcores 

ο 10,23 SAY * RANK "GET mrankid 
Gwe 23 SAY "μι EDMCATION "GET meduid 
Beez jez a) SAY” SEK | AOS 
IS AS SAY C BIRTH DAY "GET mbirthdd 
[Spas AY “BERTH MONTH "GET mbirthrarm 
Silanes SAY SIRTH YEAR CER Πο ο” 
Εν; SAY ΕΕ PLACE GET πο ο ο 

|a UU SAY) RELIGION "Ser. mceligven 
STORE ' ' TO answer 


G@ 19,290 Say.’ 
Geel, A =D ' 
ας ΓΤΟΝ” 


ARE YOU SWRE Pee DELETE 
TYPE y FOR yes OR n RETURN TO “SERIAL. 


(da 21,65 GET answer 


READ 
BPO- CADE 
CASE (answer) 
DELETE 
PACK 
CLEAR 
SITERE t τα 
CASE (Canéwer) 
μυ τ 
OTHERWISE 
DO ERROR 
ENDCASE 
ENDDO WHILE t 
HER OFFICER 


? 


tlay 


ο ΟΕ ΞΕΠΝΗ ΤῸ DELOFF 


ERASE 
RETURN 
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PATS DATA >?” 


s 


+e ete σον 


* PROGRAM N 
+ AUTHOR 


+ PUREJSE 
+ PROGRAMS 


ttt ttt Sé gg sg E sg gg sg KE KX gv Sg gg gg vg vg ée sg σος 


AME : CHGCORR TERE < 


DJOKO M. ARIYAD d 

+ DATE WRITTEN : 300 5 « 
TO CHANGE Ριτς αμ . 

CALLED BY THES PROGRAM Saye . 

USED ARE: bU EN * 


e DBCE TEES 
E ME E E τς 
ΞΕ ΠΛ ΘΠ 
SET VCONSGEE 

ERASE 


USETOFFICER 
INDEX GN SER 
USE Jon vee 


STORE t TORE 
DO WHILE t 

SE) Vee ek 

STORE 

ERASE 

5 ΞΕ: 

ο τσ ο 

9S 12 2 

@ 16,2 
READ 

IF ms 

RELE 

RETU 

ENDIF 

FIND & 

IF # = 


RECORDSA 


ENDIF 
ERASE 
* load 
STORE 
STORE 
> TORRE 
STORE 
STORE 
STORE 


E E E E E E A E E E EE E E E E 0 030€ 3€ A EA ες 


ON 


να το σσ ος 
TNDE AWE HI GE E 


lag 


TO 30, TA 
í ’ TO msn 


SAY “TO CHAANGE OFFICER REGCUADS) 

3 SAY 'ENTER SERIAL NUMBER "ael msn PICTORPEV OS ah 
3 SAY 'e.g : 005001; 006005; 007001' 

3 SAY “ENTER A BLANK RETURN TO CHANGE MENU ° 

T , 

ASE msn,flag 
RN 


msn 

Q 

SEL. EOLOR το τι -Ὁ 

@ 12, 20 SAY “SERIAL NUMBER ΕΙ ον Teta oes | 


@ 13,740 SAY CHR) 

sya th O 

STØRE 1 TOV 

DOTWHTCE v<200 
STORE Vv + iby 

ENDDO. WHIEE, v<225 

SET COCOR το 30, 14 

COGE 

# = 0 


old values 

name TO mname 

Corpses Je πσαοσας 
rankid TO mrankid 
eduid TO meduid 

sex TO msex 

birthdd το ασ ο σσ 


SUORE bhrrtnmm TO mbirthmm 

SPARE bhirthyv TO mbirthyy 

Sone Bricrta TO mbirthp 

τα Ee religion TO mreligion 

* get new values 

12105 20 sey "EIS IS THE DATA YOU WANT TO CHANGE’ 


G7, 238, SAY "SERIAL NUMBER ” “men 

@ 8,23 SAY “NATE "GET mname 

0 923 SAY" CORPS "CET MEOrDS 

@ 10,23 SAY 'RANK ^ GET mrankid 
CAS AIRES EDUCATION ’ GET meduid 
a 12,23 SAY ’SEX "GET msex 

ο ο ο ο ο ο. BIRTH DATE "GET mBirthdd 
ο Z293 SAY BIRTH MONTH "GET “mba et ni NA 
ο ο οι. ου BIRTH YEAR “GETEN 
aa BIRTH PLACE συ Πο σος 
ES AY “RELIGION "GET mreligion 


STOERE "v' TO answer 
[DE MU SAUL ARE YOU SURE. TO (CHANGE. THIS DATA 27 


ο. απ; TYPE y POR ves OR n RETURN TO SERIAL $4 OPTa” 


@ 22,65 GET answer 


READ 

DO CASE 
* replace values 
CASE (answer) = ’y’ 


ΒΡΕ. ΕΕ namesWIiTH mname, serps WITH ncorps, 
WITH mrankid 


REPLACE eduid WITH meduid, sex WITH msex, bairthde; 


Nte tada 
τε: .:.ε obli EE emp" re wilH 
MESA Er Dic cibe NETA πω σσ μο, religion WITH 
STARE t ta flag 


CASE (answer) = "ni 
ο ΟΡ ΕΕ TO flag 
OTHERWISE 
DUERO; 
ENDCASE 


ENDDOC WHILE t 

foo OFFICER 

ENDE A GN SERNO TO CHGOFF 
ERASE 

RETURN 


πο; τη 
nrelidguori 


SR SR Sg sg gv KZ vs gg gg SS SKS sg gg Ss RS SES vg Kg gg gg vg HE eee He eH Ee]! o 9- 


* PROGRAM NAME EE * 


+ AUTHOR : DIGKRG ΟΙ; ΕΤ, « 
* DATE WRITTEN : HAT MESS « 
* PURPOSE : TO PERMIT ADDITIONS ΠΟ ΑΡ ΠΕ ΣΕ Peer. e 
+ PROGRAMS CALLED BY ΠΙΕΡ ΟΣ MALE + 
* DBF FILES USED ARE On ους + 


MM ME ο ντος ου A A A MA A A A A A SSES SS KEES Sg sg vg XS 


SOMA ANO 
SET CONSOLE ON 
ERASE 
USE OFFICER 
INDEX ON ΞΕΒΝΟ τα αρ σος 
USE OFFICER INDEX ο ορ 
STORE t TO flag 
DO WHILE T 
SET EOLOR TO SALA 


τς.” ^ TO msn 
ERASE 
@ 3,20 SAY -ADDITION TO OFFEITCERTREC SSRDS: 
@ 10,18 SAY “ENTER SERIAL NUMBER ΕΕ ο Επ TORE; 
"29997993 
4 12,18 SAY 'e.g : 005004; 007002; 029001’ 
e 16,16 SAY ’ENTER A BLANK TO RETURN TO ADDITION MENU’ 
READ 
IF msn = 
RELEASE men, flag 
RETURN 
ENDIF 
FIND &msn 
IF #<>@ 
SE COLOR το πλ ο. Ὁ 
κ ο τον ολ. "THIS SERIAL OS IS “ALREADY SN fi eae 


? , 


@ 13,40 SAY CHR(7) 

SETA TAIN OFF 

STOR. (On 

DO WHILE v<220D 

STORE ντ τους 

ENDDO WHILE v«250 

SETICOLOR TO ο 3 

LOGE 
ENDIF #<>@ 
ERASE 
@ 4,23 SAY 'ADDING TO OFFICER RECORD’ 
Ser eae * TO mname 
ΞΕ το ME OS 
STORE ο τὸ αγαπας τω 
Stars ’ TO meduid 
STORE ' ' TO msex 
RE Ee "eege 


94 


STORE ’ 


ANDO E AMM 


STERE ” ο ο πο στον 

sum 7 ¿DO MBA END 

ENDISSE CC STU mreligion 

PAEZ SIS AY. "SERIAL NUMBER ^ -msn 

€ 8,23 SAY “NAME ^ GET mname 

ORS PJ SAY CORPS "GET mcorpes 

a 10,23 SAY RANK ΑΡΤ mrankid 
CASAN ATL. EDUCATION ’ GET meduid 

a 12,23 SAY SER ^ GET msex 
ORIS τοπ δοι BIRTH DAY ΠΕΙ mbirthdad 
OT 23 SAT “BIRTH MONTH GET mbirthmmn 
OR ο ο Sa ΡΒΤΕΑΤΗ YEAR GET mba 
ISA BIRTH PLACE GET mbata 
E ee Seon te ΕΓΙΠΤΟΝ ^ GET mreligion 
ANOS nit ENTER TO RETURN TO OFFICER MENU OPTION; 
READ 


IF mname 


LOOP 
ENDIF 


- a 4 


aca the record 
APPEND BLANK 


REPLACE 
her LACE 
WITH msex 
REPLACE 
REPLACE 
REPLACE 


ENDDO WHILE t 
SSE OFFICER 


serno WITH msn ,name WITH mname ,corps WI 
rankid WITH mrankid, eduid WITH meduic, sex; 


patada META mbirtrnad o. ci tana wITHombirthem 
DRA y Y ATA mbarthyy | barthp WITH mbirthp 
ΕΕ απ πσςος eN LTE mrelrtgion 


ADEX TON SERNG TO ADDOFF 


ERASE 
RETORN 


HSH EEE EEE EEE EA EEE EEE EEE AAA EEE AA EA EE AE AAA AE 0ÁÀR 0400€ X0 X 


+ PROGRAM NAME ΘΕΟ πα . 
* AUTHOR : 5ΠΕΤΗ Searels Aba * 
+ DATE WRITTEN : MALMING e 
EE : TO LIST QFFICERS WHO HAM EA ENS 
* MILITARY EDUCA TTONSMEEVEL ‘ 
+ PRCGRAMS CALLED MEY “tats με A ENRE; * 


+ DBF FILES USED TARE ΠΙΕΡΟ. MEDUCIST, OFICE TSE ο... 
E οταν BB BB BN GN BB BB BB GB BB BB BB BB NB BB BB Ma 
SETET TACK OFF 
ERASE 
SET CONSOCE TEIN 
STORE T TO FEARG 
SET COCOR το “ο 
STORE T TO ο ο. 
DO Wh lea FAG 
ERASE 


o m" " 


E ALAT πο ή MILITARY EDUCATION LES 


ΠΠ ΓΞΠΕΕ7 
SET COCOR ΤΕΙ 


- — ew =e omg em ae a e e ae a ma ma i M hs ωω emm emm emm em ma == == que ig em WR um es -- 


m emm 


> " n 

o " n 

A " n 

A "n " 

n n 

> E Given a Military “Education! Bevel, this aran 
will respond with :" 

9 H H 

GE NAME, RANK, EDUCATION LEVEL, YEAR-END” 

yn of π 

? H "n 


?; ^" The following is a list of Military Edusatasumne e NE 
and their codes " 


η " "n 

(meu You can query one at a time " 

o mn" n 

2 H H 

n H H 

e H H 

Επ τω ος Πο 4 

ού τττηκηητητητηητςτττςηττηηττηκ-τ-τ-- 
---------------------------5-------:» 

2 H H 

v E ΤΥΡΕ ΑΝΥ ΚΕ; π Elle 

SGETOGDNSOL ESSE 

WAIT 

SET CONSOLETON 

ERASE 


DOSSHILE Q:FLAG 
ERAS 
(me, | SAY = GUERY 

Mee σος" 


SETUODEGR TO 4 


MILITARY EDUCATION LEV 


- - sa ` eg eng ` em ` omg emm wi iia e mm 


- - ————  - ο - mmm ` mp mm e ` zem ` op em wm ” - -ω - -ωω- em A zm zm μα mm e em em e απ Ô 


EE 0, 14 
USE MEDCEV 


a TEES 
o "n n 
ESTAS 

MEDLEDES OFF 
αρ ΦΩΕΩΡ πα -ὁ, 14 
o on o. 
TEXT 


PLEASE SELECT 
ACCORDING TO 
THE ABOVE LIST 

"RETURN" KEY 

ENDTEXT 

SET COLOR TO 

2 η "n 

nm 


2 το Ρα 
FETURN 


^» 
n" "n 


o n" ^ 


SET COLOR 
ACCEPT ? 
ο το «7 


TO 20,14 


( Ὅ 


— 


TO Q:MNO 


ZRASE 

ο τοσο SAY 

Ir QUIMWO = " " 
BRISPEANSES ALL LIKE G+ 
ERASE 
STORE F 
STORE F 

ELSE 
SORE ai TO 
wee, rT Εν 


TO 
TO 


G: FOUND 
Q: FLAG 


Q: FOUND 


EDUCATION # 


H - 


WAE. DE SINE DAM L 


CZAD TOITS LEASE) 


(RETURNI TO QUERY 


Taper Al CEN PLEASE, 


EN lee 


DESCRIPTION? 


ΠΕ 5.7 EN 


EDUC ATTON NEM BER, 


ef oi 
τὲ KT 
, 


ΠΕ“ ΠΕΤΕΡ ΗΠ; 


EDUCATION NUNMEER; 


Saja ja 


BHDEX GN MEDLEVID TO QUERY1 


πω πώ TO QUERY i 
REND NEG μμ 
IF #=0 
ERASE 


SER COLOR TO 112, 5ο 
ο το SAY * 


^ pn m" 
o n" 


; PCEASE, 
BEST,” AND TR? AGAIN?” 


-- Ut eee E 


E. 


πε  SCHOOLSCANNGT BE του νο” 


EDOCATTON NUMBER; 


te ΤΥΡΕ ΑΠΕ 1” GONI DE | 
SET CONSOLE G 
WAIT 
SET CONSG@EERY ON 
ERASE 
STORE ο πα ο αυ 

ELSE 
STARE T TO > FOUND 

ENDIF 

ENDIE 

IF Q: FOUND 
STORE ΠΕΡΕΕΡΕ! ΤῸ "ΠΕΤΕΡ, 

, ERASE | 

STORE MEDEEVITD ἘΠ 
USE MEDEE 
COPY TQ Tha FOR MEDLEVID SE 


USE TF1 
SELECT SECONDARY 
USE MILEDU 
JOIN TO TF2 FOR P.MEDLEVID=S. MEDLEVID FIELDS S. MEDUID, SERNO, ; 
MYYEDED, MEDURANK 


USE TF2 

SELECT SECONDARY 

USE MEDULIST 
JOIN TO TF3 FOR P. MEDUID=3. MEDUID FIELDS MEDUDES, P. SERNG, ; 
» P. MYYEDED, P. MEDURANK 


BSEC DIS 
SELECT SECONDARY 
USE SO EEN 
JOIN TO TF4 FOUR P. SERNO=S. SERNO ΕΤΕ ο ο ο ο το. 
P. MEDURANK, P. MEDUDES, P. MYYEDED, CORPS 


USES TEA 
SELECT SECONDARY 
Wee 
JOIN TO TFS FOR P. CORPS=8S. CORPS FIELDESEORP SDE Saa οσον. 
P. SERNO, P. NAME, P. RANKID, Ps. MEDUDES) Po ie ος 


USE WES 
SEEĽECTESECONDARY 
USE RANKCIST 
JOIN το τῇ FOR P. RANKID=S. RANKID FIEC DSERAN ου LINDE 
P. NAME, ΓΡ. ΠΕΡΟΡΕ ΟΡ ΠΥΥΕΡΕΣΡ ΕΕ ΑΕΕ - 


STORE MITO AA 
DO WHILCEM@: FLAGZ 


A 10,58 SAM DO YOU WANT TG SEB" tHE πο ο... 


98 


SCREEN or HARDCOPY 97 
0n n 
ACCEPT » ' ENTER ’s’ FOR SCREEN or 'h' 
FOR HARDCOPY” TO 0:PRN 
READ 
DO CASE 
CASE Be PRN Fe" 
STORE F TO Q:FLAGZ2 
ERASE 
CASE Q:PRN = "bi 
STORE F TO Q:FLAG2 


ERASE 
Seer ENT ION 
ERASE 
OTHERWISE 
ΕΕ 
ERASE 
STORES OS PA 
LOOP 
ENDCASE 
ENDDO 
ΞΕ fri 
DT EE WITH "THE LEVEL: 
ED 7 
EISE ”?” ak ΕΣΡ ΕΕΣ OFE 
o m" " 
? " NAME RANK 
EMBED TEAR- ENDE 
PA Nk aj SNS Sia = Si ajaka == aaa ia = a == ai= = = = τα ον ον αν 
ee ee o 
use tí6 


LIST " " + NAME + " " + RANKDES + " " + MEDUDES + * “ 
MYYEDED OFF 
SET COLOR TO 4 


- - eee eee ee  - 


τ ιαπ ΤΕΥ ΤΕ GONG ENUT" 
SEN CONSOLE OFF 
WAIT 
Solo CONSOLE UN 
Seri INT OFF 
ENDIE 
ENDDG 
ERASE 
ENDDO 
ERASE 
RETORN 
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Sg Ev gv gv vs gv gv gg gg gg gg gv gw gg gg gg vg gg E E E E gg gg gg gg gc gz gg zg 


+ PROGRAM NAME : GUERT E TERG . 
* AUTHOR ¿ DIOK O πα. Απ ινα < 
+ -DATE WRITTEN : TA NG | * 
*- IPUNE Ss : TO LIST OFFICERS ουκ τμ τα. ic ‘ 
* MILITARY SCHO * 
+» PROGRAMS CALLED BY παν ο οτι ας ΙΝ πο - 


e DBF FILES USED ARE : MILEDU. MEDULIST, OFFICER, CORPS, RANK + 
Lé dd AAA A AA dE d AAA EA AA E AA AA Ed EA A He dd A He A EZ E E EE A E E E E E EE E E 
SET TALK OFF 

ERASE 

SET CONSOLE ON 

STORE T TO FLAG 

SET COLOR 10m0. 14 

STORE T TO Q:FLAG 

DO WHILE Q:FLAG 


ERASE 
7 "n ” 
a 2,1 5AY "OUERY ορ ορ MILITARY; 
ΠΕΣ MAY 19867 
SET COCOR TOZA 
a H ἳἱπ ππἝπππππἹπ τΞ Ξκττττττηττητττττττκ-τττττττττςττ-α. 
e See geess ees sess seess zz H 
SET-COBURNTO 3091 
2 "n "n 
a "n "n 
A n t 
m 1f n 
up Given a Specific Military School. This programs 
respond with : " 
7 "n n 
Ὧν τοπ SERNO, NAME, RANK, ΠΕΤΕΡ Screg. 
YEAR- STA 
7 " "n 
2 " "n 
eT The following is a List “εν ΞΕΠΞ uet 
their codes" 
A "n "n 
RU You can query one code at a time ” 
know" 
A "n "n 
9 t" " 
A "n "n 
7 "n 1 
SET COCOR UE: 
2ΣΗ5ξ5ς9«ΞΞΕΞΞΞΞΞΞΞΞΞΞΞΕΞΞΞΞΞΞΞΞΞΞΞΞΞΕΞΞΞΞΞΞΞΞΞΕΞΞΕΞΞΞΞΞΞΞΞΞΞΞΞΤΈΕΟ 
Se Geess ee e e seess sees e H 
9 n H - 
T ED TYPE ANY REY” TUE ONE: 
SET CONSOEE ο 
WAIT 


SET CONSOLE ON 
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ERASE 
υπο ΕΞ Q:FLAG 
ERASE 
Cle. SAY "QUERY e E ταις; 
ENEE le EE 
SET CULOR TO 4 


gem ME mM M MU ` mm wm mS 


SEPT COCOR TOF 30, 14 
ο ο DULL Sa 


Loo MIL. SCHOOL # DESCRIPTION” 
? n" n 
ETSI OC OMEDUTD n ΡΕ; 


DE DUDES Chr 
ΞΕ COLOR TOREO, 14 


2 n n 

2 n n 

TEXT 

PLEASE SELECT ONE DESIRED MIL. SCHOOL NUMBER, ; 

ACCORDING TO 

πο ος LIST (2 DIGITS PLEASE) ε.α. "OG" -AMD HIT; 
"RETURN" KEY | 

ENDTEXT 

SET COLOR TO 4 


9 n n 


DN TOS PRE TURNO CUDERY MENU E So): 
EN RETURN!” 


£x n n 


2. n" " 


SCTP COCOR TO 30,14 | 
BE Ὁ ENTERIN. SCHOOL MUMPER:s 
ο DESTETS ) " TO Q:MNO 


ERASE 
Cire ORSAY TBE PATIENT PLEASE, Site, PROCESSING" 
KENE H " 
RECEASET ACL LIKE Q+ 
ERASE 
ΠΕ TO Q:FOUND 
STORET TO Q:FLAOGO 
ELSE 
STORE F TO Q:FOUND 
SECMEDSLEIST 
UNDER GN MEDUID TO QUERY. 
Somerton το QUERYS 
FIND "&Q: MNO" 


IF #=0 
ERASE 
ου COLOR TO 112,1490 
το Sg SAY 7 SORRY "SCHOOL CANNOT BE; 
FOUND” 


y n n" 
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Gë PLEASE SEE THE MIL. SCHOOL NUMBER LIST; 
AND TRY ANOTHER NUMBER" 
e nf 4 
a TYPE ANY KEY, TC; 
CONTINUE" 
SET CONZOLE OFF 
WAIT 
SET CONSCLE ON 
ERASE 
STORE F TO @:FOUND 
ELSE 
STORE T TO Q:FOUND 
ENDIF 
ENDIF 
IF @:FOUND 
STORE MEDUDES TO @:MEDLST 
ERASE 
STORE MEDUID TO Q:MNO 
USE MEDULIST 
COPY TO TF1 FOR MEDUID - "&Q:MNO" 


USE, TL 
SELECT (SECONDARY 
USETMTEEDU 
JOIN TO TF2 ROR P.MEDUID=S. MEDUTD RTELCDSTSERNOT E Ena 
MEDURANK 


- 


USE TPR? 
SELECT SECONDARY 
USET TORPRFTITCER 
JOIN το τος FOR P. SERNO=S. SERNO FIELDS ΕΡΕ NA DCE SET 
RANKTD, P. MEDURANE, ESO DN 


USET TOS 
SELECT SECONDARY 
USE "CORPCODE 
JOIN TO TR4 FOR P.CORPS=S. CORPS ΕΤΕΡ σοκ ο Όττο UE 
P., NAME, P. RANKID, P. MEDURANK ees) Sis 


USE TF4 
SELECT SECONDARY 
USE RANKLIST 
JOIN TO TF3 FOR P. RANKID=9. RANKID ΕΤΕ ΙΟ ο Eo DI M 
P. SERNO, P NAME ο ΠΤ ΤΕΡΕ 


STORET AZ 
DOC WHILE EE 


G 10,8 SAY " DO YOU WANT TO SEEMNE LSI ON SCRC ENS 
OT παιποσσο μα 


9η " 
4 


AGE BEA, ENTER “s^ FOR :ΕτΕΕ;::,ὰ ο 


ΓΕΝ BDÓEnbecoRY- TO Q:'PRK 


READ 
DO CASE 
CRESE Q:2RN - 's' 
SPORE © TO G-:3EA62 
ERASE 
CAGE Gs SRN = h” 
STORE F TO Q:FLAG2 
ERASE 
SET PRINT ON 
ERASE 
OTHERWISE 
DO ERROR 
ERASE 
SFGRE T TO"G:FLAGZ2 
BOOP 
ENDCASE 
ENDDO 
ο ο τος 
LIST "S ZE ee GU DEG. GES 
E r THE NAMES OF DES CSR ARE * 
7 " SERNO RANK NAME 
CORPS YEAR-START" 
o " a2z222z22z22222z22-22-2z2222z2z222-22z2z2z22222-2z222-2z:--2z:-2---r-. 
use tf2 
LN Sere — "am > RANADES e "o" - NAME -~ " " 
COSESSDES -- Bt EDST ORD 
Sete GOLCR ΤΟ 4 
2? H === = === == = = = == = 5 a = = = = == as = E === ES = = = = = = = = = = HK KK SK = y; 
D Me XE WEM TEMEN Tana ONG IN” 
SET CONSOLE OFF 
WALT 


SET CONSOLE ON 
ΞΕΝΗ ΠΤ 
DNDI F 
=RDDO 
τς 
ENDDO 
ORASE 


RETURN 
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Sg Kg vg A E A A A E E E AE CE A BB BB BB BB BB BNN BB BB BB BN BN BB € 090€ 08 X o e ge 


« PREGRAMENANE MAUER T H RE < 
* SAU THR : DJOCKO M. ARDANI e 
+* “DATE, WRITTEN E MAA . 
«c. PURPOSE : GIVEN A SERIAL NUMBER ΤΟΥ, τος ‘ 
* THAT OFFICER S PROMO TTO EEES Gree * 
+» PROGRAMS CALLED BY THIS οι οί --- c 
+ DBF FILES USED ARE : OFFICER, CORPS, he RUE ` 


X 3 OR OR E E E E HEH He HHH κ κ να ας κα eH ee ο HEHEHE He HH He € + 


SET TABISNOPI 

ERASE 

SET CONSTE GN 

STORE ΤΠ REAG 

SET COCOR πο ο 

STORE T TOTO: FENG 

DO WHILE Q:FLAG 
ERASE 


o M" " 


@ 2,1 SAT GOUER OFFICER’S PROMOTION Hist  - 
MAY 1986" 


SET COLOR TO 4 


-— € - - emm em aab emm emm se am am .- 


SET «σα ορ το τὰ 


e " " 

2 " " 

? " " 

? " " Ν 

2 " Given an Orfficer's Sereal Numbers thia progran; 

will respond with 

n " " 

OO HIS PROMOTION HISTORY, INCLOUMMENG" DATA. De 
ORDER NUMBER 

me 

eae The following is a list of MAS cervical; 
Number and it’s name " 

n " " 

E You can type serial number which you like; 
tö know” 

" ” " 

A " » 

A " " 

6 " n" 

SET COLOR TO 4 

IA H ees e e e e e e e a A E e E E -- - - - e E e E E E e e e E e e e e e E E E E E E E 

" " ΠΩ͂; 
j TYPE ANY KEY TO CONTITORE 
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WAIT 


STU ONSUELDE ON 


ERASE 
PIN ALE G:F LAG 
ERASE 
E 2l GAY TCWERY OFFERTER STRANK 
HISTORY TAY e285" 
Ser COLOR TO 4 
Ee e e e KH HE HE HE KH SH aa aa Ng KN ο 


mmm ` me =e == E M M  . ο ο ata emm am emm emm em 


SEIT ου τος το τω, 13 

οσο ο ΕΙ 

Ὅ ος ΕΝ Επ τα DXOFF 
πα κ ΝΟΕ ο Age b 


C OFFICER S SERIAL # Α.Ε ον THIS; 
BILE?” 

2 " " 

EU SERIAL # NAME" 

2 η " 

Bish, e Pet Soe RNG +" Vote ση. 
OFF 

ΙΓ .ΕΠ ΤΕ 30,14 

nn "n H 

TEXT 


He A ES ELCECT ONE 'BDESIRED MIL. EDUCATION “MU MIS [ga 
ACCORDING TO 
pa AN BEN LIST (2 DIGITS PLEASE) e.g. ΟΕ ΝΡ ΠΟΤ; 
"ΠΠ REY 
ENDTEAT 
SET COCOR TO 4 
D " n 
P το. την ο πετ QUERY MENO DATA) > 
foe RIETURIDAC 
" H " 
EULER. TG 30,14 
ACCE Ram " ENTERS Smeal NUMBEK ε.α. 
ZEN U5ITS ο TO Q:MNO 
ERASE 
COSA ABE PATIENT PLEASE, STILL PROCESSING" 
τσ ING. ο T 
BEIBEASE ALL τε ως 
ERASE 
STORE © Te G:FBEUND 
STORE F TO Q: FLAG 
EESE 
SORE E TO 0: FOUND 
AID LO: MNG” 


IF £$-0 
ERASE 
SEPT COCOR TO 112,140 
|a SAY 7 SORRY SERIAL  NUNBER GANNGT BE; 


195 


FOUND" 


o M " 
2" PLEASE, SEE THE SERIAL NUMBER’S LIST; 
AND TRY AGAIN" 
2M TYPE ANY KEY, TG COMTINUE” 
SET CONSOLE OFF 
WAIT 
SET CONSOLE ON 
ERASE 
STORE F TC Q:FOUND 
ELSE 
STORE T TO @:FOUND 
ENDIF 
ENDIF 
IF Q:FOUND 
STORE NAME TO Q:OFF 
ERASE 
STORE SERNO TO Q:MNO 
USE OFFICER 
COPY TO TF1 FOR SERNO = "2£Q:MNO"” 


USE. The 

SELECT I SECONDARY 

USE RANKETS I 
JOIN TO TEMP1 FOR Ρ.ΠΜΑΝΚΙΌΡΞ5.ΠΑΝΚΙΡ ΕΓΕΕΡΤΞΟΕ AS En ΙΙ 


RANKDES ως 


USE TEMP 
ΠΕ ΕΟΤ EE 
USE CORRCODE 
JOIN TO TEMP2 ΡΟΝ Ρ. ΟΟΠΡΩΞΣ5 Επ ς οτα ο ο ρα ο oe, 
P. KRANKDES, CORESDES AP απ. ΙΕ 


OSE τοῦ 
SELECT SECONDARY 
USE RANK 
JOIN TO TF FER P. SERNO=S7SERNO FIELDS SAN ie ee MEME 
RANKYY, RORNO, RDATORNO 


USE. Tok 
SECECT SECONDARI 
ΠΞΕ CRANE ISI 
JOIN TO TF3 FOR P. RANKID=S. RANKTD ΤΡΙ ο Το πο ο ο. A ,““π᾿“ἔπ᾿ 
P. RANKMM, PoRANK YY, P. RORNOTPIRDA TORNE 
USE TES 
SORT ON RANKYY TO TF4 ASCENDING 


STORE TETI O- FT CAC? 
DO- WHICETO:FCAG2 ; 
O. LO USAMOS DO YOU WANT TQ SEE THEMES aN ser sa Ng 


oc HARDGEUDINMUE 


ο η ΗΠ 


ΕΕΤΤ ENTERO S SPCR EBEN Ga” 
POR eee COPY" TO W:PRN 
READ 
DO CASE 
CASE Seer RNG ==! s * 
STORE το εσεις ο 
BRASE 
CATE TO- PRN 7" h^ 
ἘΝ T TOSOFPFLAGCZ 
ERASE 
Sam PRINT «GN 
ERASE 
OTHERMISE 
Ρα ERROR 
ERAGE 
STORE OT TO Q:rFLAGZ 
Ea 
ENDCASE 
ENDDO 
πο PENTP 2 
— PROMOTION ALSTER TERIOR 
o " " 
ET we Sanne ae ο ο Να ΙΕ ΕΕ” " + RR OES 
CURS DES AE E 
Quat " 
? " RANK | DATE MONTH σας 
ORDER SNUMBER " 
ηπνν-:-----------Ξ---ΞΞ-ΞΞΞ5ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞ55πΞ5ΞΞΕΞΞΞΣΞΞΞΈΞ; 
Doe Tr 4 
DESI " E + RAPD ES + " "+ RANK DD > ” Mas 
RANRKEMM + “ ΗΕ. Ἔν To ROR eh Fr 
=e, COBROS 
AAN = ee EE e 
,-ιε--------------ς---------------- 
AS TICE AN ΤΝΤ CONT PRUE?” 


See CONSOLE OFF 
WAIT 
mET CONSOLE ON 


ome PRINT OFF 
ENMDIF 
ENDDO 
ERASE 
ENDDO 
ERASE 
RETURN 


1ο 


eee eee eee REE PRE HEHEHE HEHE EH HERE EER EEE EEE EE ER] HEHE EEE] o € X0 9 


+ PROGRAM NAME CUERDO - 
* AUTHOR : DJOKOTIMI “πο η * 
+ DATE WRITTEN Sp ΤΕ . 
IPUR SB : TO OBTAIN ΑΠ ΟΡΜΟ ΕΝ S ο TUI ae E e 
* SERIAL NUMBER + 
+ PROGRAMS CALLED BYTTHIS FRG@GkAt E + 


+ DBF FILES USED ARE : OFFICER, GORPS, RAMNM@EST, σποτ αρ. --ᾱ- 
ete e SS SS SS SKS SS SR e es Se SS SS SS SS Se e SKS SS SS SR SS KX KS See Kg ege gg gg eg w 
SET TALK OFF 

ERACE 

SET CON- OLE ON 

STORE TITO RIAC 

SET COLOR την ο 

STORE τ Τὸ ο μα E 

DO WHILE Q:FLAG 


ERASE 

P n H 

a 2,1 SAYI TOWERY αρ πα κ ο τας, 
HISTOR: MAY T986: 


ΞΕΤ ων ΤΗ; 


SET COLOR το. ο ντ 


2 " ΜΗ 

2 " " 

? " H 

2 H n 

QUUM Given a Officer's Serial Number, This program; 

respond with : 7? 

? " " 

ον OFFICER'S JOB HISTORY,” INCLUDES CAI ο πο 
ὉΤΑΤΙΟΝ, ΠΠ τ" 

^ n" η 

p " " 

NEA The following is a Mist of Officer's Sema 
Number and their name " 

^ M" n 

SN You can query one serial number at a time; 
to know" 

9 " H 

o M K 

A H " 

2 " H 

SET COLOR AAA 

yu === === Ni Ni SNS 235 2 5 22 22 = 3 2 SSS orcos ὗ ὗΥ Υ' 
ee e e e ee see ess ee ez see e H 

2 " H 

Ee TYPE ANY KEY TO CONTINUER 

SET CONSOLE ΟΠΗ 

WAIT 
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Soe CONSOLE) ON 


ERASE 
BEN TLE USFLAG 
ERASE 
E Ee CSI >. UA 


D MEE Se” 
SET COCOR TO 4 


meee ss  - -ωω- ϱ 
- - - -- emp ` wm ` mmm ` omg ` vo ` emm ` emp  --, --.ω - mm ` mm ` wm ` emm ` mm ` emm mm - -- —————————X M —Ó— e -Ἡ --------- .-- 


SET COLOR TO 30,14 

USE OFFICER 

INDEX ON SERNC TO DXOFF 
SET INDEX TO DXOFF 


ο o OFFICER S SERMAD $ ALREADY IE TAS: 
RILE? 

o n " 

2 3 SERIAL # NAME” 

o nr a 

LIST " " + SERNO + " AE 
Have OFF 

«ΠΠ απ ος TO 30,14 

RET " 

2.» " 

TEXT 


PLEASE SELECT ONE DESIRED OFFICER’ SERIAL NUMBER, ; 
ACCORDING TO 
| THE ABOVE LIST (6 DIGITS PLEASE) e.g. "@@1111" AND 
HIT "RETURN" KEY 

ENDTEXT 

SET COLOR TO 4 

o " M 

pus TO FINISH (RETURN TO QUERY MENU OPTION); 
HIT 'RETURN'" 

Oo n" " 

SET COLOR TO 30,14 


AE” ENTERMASERTAC ONO Bee. q; 
MIS LTS DO MNO 


4 
’ 


ERASE 
Geer? iow BE PATIENT PLEASE, STILL PROCESSING? 
TE Gagne = " " 
RBEEEASE ALL κε» 
ERASE 
πιο ας TO Q:FCUND 
STERE F TO O:FLAG 
PELSE 
STORE F TO O: FOUND 
CANDIA S5 NNO" 


IF #=0 
ERASE 
Si ρω TO 112,140 
ο H SORRY, SERTAL NUMBER CANNOT ΒΕ; 
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FOUR" 
D " " 
e PLEASE, S5SEz THE SEAT ο ο ο Ἱ-..-). 
AND TRY AGAIN" 

o TYPE ἈΠ ΚΕΙ. ΙΟ Ρα το EN 
SET CONSOBISQSEUIS 
WAIT 
SET GCONSDPEDSON 
ERASE 
STORE F TOTOR FCUOND 

ELSE 
STORE T TOQ: FOUNDE 

ENDIF, 

ENG E. 

IF Q:FOUND 
SCORES NAME Το ος 
ERASE 
STORE Επ στο Q:MNO 
USE OFFICER 
COPY TO TFi FOR SERNG =)" 2o. NE 


USE DB 
SELECT SECONDARY 
USE RANRCIST 
JOIN TC TEMP1 FOR P. RANKID=S. RANKiD FIERDS P. SER αμ. ΙΝ 
KAND, Fale 


USE TEMP1 
SELECT SECONDARY 
USE CORPCODE | 

JOIN TO TEMP2 FOR P.CORPS=S.CORPS FIELDS P.SERNO, P.NAME, ; 


P. RANK DES, CHRPSDES 


USEDE 
SEPIA SECONDARY 
BER. JOMSINISE: 
JOIN TO TP FOR P. SERNO=S. SERNG PIELDS ΟΕ, Ον: ,:'''.. 


JUBII OB yy 


τω "ο 
SORT ON JOBRANK ΤΟ ΤΟ ΟΡ συ. E 


USE TF2 
SELECT SECONDARY 
USE RANKLIST 
JOIN TO TF3 FOR P. JOBRANK=S. RANKID FIELDS RANKDES,P. JOB1D, ; 
P. JOBDD, P. JOBMM, P. JOBYY ` 


USE Slee 


SELECT SENSIBUS TES 
USE. .J OBL RS 
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Tee etre hon ϱ ἹΟΕβτοςτο ο. ο τει ο JOBDES PORANKDES, ; 
IM TOBA, P. JOBYY, JOBSTAT 


USE TF4 
SELECT SECONDARY 
USE STATLIST 
πο τα τπτ ρωπ ο JOBSTAT=S. STATCODE FIELDS CITYSTAT, STATDES, ; 
E e joann, e. Ap 


WES. aue 
SELECT SECONDARY 
tee Clrylisy 
Ι.ι.ιυ., τα ο © LTYSTAT=S.CITYCQ@DE FIELDS. P. RANRDES, ; 
SS BE. JOBMA, P. JOBYY, P. STATDES, CITYDES 


SiO. O: FLAG 

POSNAT ETO: FLAG2 

9 10,8 SAY " PO YOUTWANT  TOTSEZ THE- -LIST OXT OCRS ου 
Sr HARDCOEY 77 

DAN Η 

ACCEPT " ENTER =S FOR Er 
lee ee TO Q:PEN 

READ 

DOS CASE 
CASE @:PRN = "ei 
STORE F TO Q:FLAG2 


-- 


ERASE 
CASE Q:PRN = 7h’ 
STORE F TO Q:FLAGZ 
ERASE 
SET PRINT ON 
ERASE 
O JERWISE 
Be ERRGK 
ERASE 
ΞΤΑΚΕ Τ Το ο ενος 
COOR 
ENDCASE 
ENDDO 
USE ΤΕΠΕ2 
oe SUBEST Εἰ. 
mm 4 " 
LIST + AS E η ΠΕ 5. ΡΑΠΕΡ; 
INNER ES DES OFF 
QN " 
"E RANK JOB 
ΤΥ STATION e TIT 
SS SS SS SEAS E E e e ASAS SS ASS 
Ee ee ee ae H 
ας ΤῈ 


lk 


INDEX ON JOBY Vea Oe rie eee, 

USE TFE ΠΕΙ 7 

LIST RANKDES, JCBDES, JOBMM, JOBY Τρ 2l 
Scl COREE. ΠΕΡ 


2 " aaa Ἕτ τπτ τπτ ποπ ποτ στ ο τπτ τσ τπτ πο τπτ τπτ το E E τσ τπτ 
UNS TYPE ANY KENYANG D eee 
SET CONSENSOS 

WAIT 


SET CONSE 
SET PRONUS 
ENDIF 
ENDDO 
ERASE 
ENDDO 
ERASE 
RETURN 


JOE 


E E E E E E E EE EE E E 


* PROGRAM NAME : QUERYE. PRG * 
* AUTHOR ΗΘ; ARTYADI κ 
ο ο πο A ITTEN": MAY, 1986 Ge 
BEA ο ο ο. AN OFFICER'S JOB ELIGIBLE ‘ 
ΟΞ ΕΛΤΕΓΕΡ ΕΥ THIS PROGRAM ARE : 3 


NEIN C PE-ENUCPBDEANEOSBPPICER, CORPS, RANKLIST, JOBOFF, JOBLIST* 
ee HH HH HH OO Oe ee ee ee E E H 
EET TALK OFF 

ERASE 

SET CONSOLE ON 

STORE T TO FLAG 


SET COLCORTTO 30714 

STORE T TO G@: FLAG 

DO WHILE @:FLAG 
ERASE 


h p " 


Geet ony.” QUERY OPP leek Sab ; 
ΕΕ ΤΟΤΕ Ε MAY 1986" 


SET COLOR TO 4 
7 


-r . om om om em egen ep egen ` eg om ep em em om em om de om om ont wm om mm em og om om em em om mp em emm pm eg ep om pm om mm emm emm "eg eee μι «πο 


^ "n H 

mn "n rn 

η "n n 

r) n n” 

” Η 

9 ” H 

PED Given a Officer's Serial Number,thiz program ; 
pesspond with: 7 

? H " a 

Er un EE EE Ee lee 3 
ENATION AND CITY" | | | 

? ” H 

2 n "n 

? " "n 

D ” ft 

$ n" ” 

^ "n 4 

Som cOLOR TO 4 

AN gg gg gg gg Ng gg ee eee 
A E cp 

a H H 

QU TYPE ANY KEY TO CONTINUE" 

SET SCONSOLE OFT 

WAIT 

SEIDSCGNSOLE ON 

ERASE 


DQ WHILE ®:FLAG 
ERASE 
5 ν᾽... 54 Εν. | 
ΠΠ O 


COLOR Ta ἃ 


-— ` - am e e ë e M Å u ‘U ŞU ep am am am am am ab ο 


..) ο 69 6 M 1) ΠῚ 
3 a3 


3 
3 


-3 


EKT 


PLEASE SELECT ΟΝΕ ΡΕΞ ΙΓ; 


WE a eu 


Piney Ee 
RE oa KET 
ΕΤΕ ΤΙ 
5ΕΓςΟ ας το 


9 " " 


KNCW 


Don ft 
^ n 


HEIT: RETURN 7 


9 " " 
SET COLOR TO 30,14 
2 "n ut 
e n η 
ACCEPT " | 
( 6 DIGITS ) " TO Q:MNO 
ERASE 
@ 12,2@ SAY 
USE OFFICER 
INDEX OM SERNO TO DXOFFS 
USE OFFICER INDEX DXOFFS 
as s 


πει ΕΕ ΕΤΕΙ απ 
ERASE 
STORE FETO ο Ρος 
SITERE PRO- G: FRAG 
ECSE 
STORE TPRI O Q: FOUND 
FIND "&Q:MNO" 
IF £$-0 
ERASE 


SET COCOR TO 112,140 
(8- ASS 
POUNDS 


^» n " 


(6 DIGITS ΡεΕ ο 


FO. FUINTSH 


BE. PAT LENTIL EA ey 


o ara 


mmm ` mmm mmm — - emm - emm — -_— - = = -_ — emm c-— E -— - == — = o m —_— - -- = € mmm — - 


SER LAL NUM Sea 


MEI oc c 


e.g. 


(RETURN TO sQUERY MENU OPTIME 


ENTER SERIAL ΟΠΕΣ wer 


Sr RES > ii 


SORRY, SERTAL NUMBER CANNES 


ri 


114 


on 


TRY "AGAIN" 


d n " 


DISEASE, 


on 

SET CONSOLE OFF 

WAIT 

SET CONSOLE ON 

ERASE 

STORE F TO Q:FOUND 
ELSE 

STORE T TO Q:FOUND 
ENDIF 
ENDIF 
IF Q:FOUND 

STORE NAME TO Q:OFF 

ERASE | 

STORE SERNO TO Q:MNO 

USE OFFICER 

COPY TO TF1S FOR SERNO = 


ΞΕ ΕΖ 
SELECT SECONDARY 
USETRANKLIST 


Ρας. τεῦ, 


ο ΡΕ ΤΠΕ ΕΚΕΙ NUMBER LIST AND; 


TO CONTINUE” 


"&Q: MNO" 


ο πο πο ρις πας P.RANKIDSS.RANKID FIELDS P.SERNC,P.NAME,: 


RONDES, P. CORPS 


USE TEMPLOS 
SELECT ASECONDAR Y 
USEFCORECODE 


JOIN TO TEMP2S FOR P.CORPS=S.CORPS FIELDS P.SERNO, P.NAME, ; 


ANI DE > CORPSDES 


ΕΠ ΤΟ QU: PEAGS 

DO WHILE @:FLAGS3 

CELOS SAY " 
ANDER PROMOTION 2” 


on H 


ACCEPT ^" ENTER 
PROMOTION” TO Q:PRN 
READ 
DO CASE 
CASE O:PRN = “Se” 
STORE F TO Q: FEAG3S 
use tf£15 


SERECT SECONDARY 
USE JOBRNK 


JOB AVAILABLE FOR THE SAME RANK or ; 


er FOR SAME RANK or 'p’; 


SEET JOBRK FIELDS JOBLD 


ERASE 

CASE GePRN = "p. 
Seren TOs Ger AGS 
ERASE 
UE 15 


LS 


STORES Τεστ 
STORE RANKED τω τς ο 
STORE MRANK+RK TO RANKID 


USE IES 


COPY TO TF25 FÜR ΤΟ5πΚ πα απ. 


OTHERWISE 
DO GERE 
ERASE 


ΟΠΕ ΤΟ “ΤΕΛΗ 


ΕΠΕ 
ENDCASE 
ENDDO 


USE TF1S 
SELECT SECONDARY 
USE JOBEDU 

JOIN TO TF3S FOR P. EDUID=S. 


USE TF1S 
SELECT SECONDARY 
USE JCBCORP 

JOIN TO TF4S FOR P.CORPS=S. 


OSE STF 25 
SELECT TSECENDARY 
USES tres 

JOIN TGtet; So cen ΠΕΤΤΞΕΞ 


USE TFSS 
SELECT SECONDARY 
USE TF45 

JOIN TO TF6S FOR P. JOBID=S. 


USE. JE BEES 
SELECT SECONDARY 
OSEA 


JOIN ΤΟ ο τ. Ε;;'. 


USE” IBA 
SELECTIS ECONDARY 
SEC SIMI IS 


JOBBE 


JTOBCO 


σε 


JOBED 


JOE 


ΕΓΕΓΕΕ ΙΤ 


Ετος ασ ΕΤ 


FIECDS TIGB DE 


FIFRCOS TIBID 


FIELDS P.JOBTD, ουτε: ο. 


JOIN TO TFBS FOR P.JOBSTAT=S. STATCODEMRIEERS ΙΤ ΤΡΕςϱ στι τι 


Ρ. ζωβ ο ο ους 


USE tres 
SELECTTZECONDARY 
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